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ABSTRACT 


This  thesis  proposes  a Report  Originating  System 
to  provide  afloat  and  small  commands  with  the 
capability  of  automatic  data  processing  assistance  in 
report  generation.  The  discussed  system  is  completely 
implementable  in  small,  inexpensive  general  purpose 
microcomputer  hardware.  The  principal  benefit  of  the 
system  lies  in  its  ability  to  prompt  the  user  to 
solicit  the  information  required  to  be  submitted  in 
the  report  and  to  partially  analyze  the  user's 
responses  for  correctness  of  form  and  content.  Such 
computerized  assistance  should  result  in  higher  report 
guality  and  the  concomitant  reduction  of  correcting 
message  traffic.  The  Report  Originating  System 
incorporates  a line  editing  capability  which  lends 
itself  to  any  text  editing  process.  Thus,  frequently 
modified  locally  prepared  documents  such  as  unit 
instructions  and  directives  can  be  originated  and 
updated  with  this  system. 
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I.  INTRODUCTION 


With  the  increased  use  of  computers  in  military 
communications,  command  and  control,  a trend  towards  highly 
formatted  message  reports  has  occurred.  A high  degree  of 
formatting  in  a report  is  conducive  to  machine  processing  of 
the  report  without  the  need  for  human  intervention.  This, 
in  turn,  allows  processing  a greater  amount  of  data  than  was 
feasible  in  a manually  oriented  environment. 

Although  the  advent  of  machine  processable  reports  has 
been  a boon  to  report  recipients  it  has  generated  problems 
for  the  report  originator.  To  be  useful,  a formatted  report 
must  be  precise;  there  is  no  room  for  either  syntax  or 
content  errors.  While  in  manually  processed  reports,  the 
originator  was  granted  some  degree  of  compositional  freedom, 
the  great  variety  exhibited  by  ordinary  prose  is 
incompatible  with  contemporary  automated  report  processing. 
Reports  intended  for  direct  computer  consumption  must  be 
strictly  formatted  and  the  computer  is  intollerent  of  errors 
in  syntax  or  content.  Satisfying  the  computer's  demand  for 
precise  formatting  is  a difficult  and  time  consuming  tasic. 
With  the  advent  of  machine  readable  formatted  reports  this 
odious  burden  has  been  exported  from  the  staff  or  the 
command  center  to  the  report  writer  in  the  field. 

To  reduce  the  submission  of  erroneous  formatted  reports, 
a great  deal  of  attention  is  given  to  the  preparation  of 
these  messages.  For  example,  the  Department  of  Defense 
provides  a mobile  instructional  team  to  present  a two  week 
course  to  middle  management  officers  on  Force  Status 
Reporting.  This  emphasis  has  increased  the  burden  of  the 
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shipboard  adninistrator  and  has  detracted  from  his  other 
professional  duties.  Needless  to  say,  computer  acceptable 
report  formats  have  not  been  popularly  received  in  the 
fleet . 

The  computer  can  be  used  to  help  the  shipboard  manager 
write  error  free  reports  more  quickly.  This  thesis  proposes 
the  implementation  of  a Report  Originating  System  to  provide 
such  a function.  The  Report  Originating  System  was 
initially  developed  by  LCDR  J.  G.  Holyoak  [4].  That  system 
was  tailored  specifically  to  the  Naval  Force  Status  Reort. 
The  goals  of  the  present  work  ware  to  broaden  the 
applicability  of  the  Report  Originating  System  to  encompass 
all  formatted  and  partially  formatted  reports,  to  strengthen 
th  stem's  error  detecting  capabilities,  and  to  simplify 
lly  document  the  user's  command  repertoire.  A great 
on  of  the  original  code  remains  intact  and  the  original 
aata  structures  are  largely  unchanged.  The  major  coding 
modifications  dealt  with  improving  the  editing  facilities, 
providing  the  ability  to  handle  multiple  lines  of  text, 
extending  the  error  analysis  capability  and  expanding  the 
system  to  handle  larger  size  documents.  The  software 

documentation  was  expanded  considerably,  not  only  to 
facilitate  maintenance  but  also  to  serve  as  a design 
document  in  the  event  that  the  Report  Originating  System  is 
rewritten  in  another  language  for  another  computer. 

In  the  next  chapter,  the  events  leading  up  to  formatted 
reports  are  discussed.  The  Report  Originating  System 
concepts  and  constructs  are  examined  in  Chapter  III  while 
the  programmatic  details  of  the  system  are  discussed  in 
Chapter  IV.  Recommendations  for  further  development  and 
conclusions  are  considered  in  Chapters  7 and  VI 

respectively.  The  three  appendices  provide  detailed 
guidance  to  users  of  the  system. 
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II.  background 


The  information  reporting  requirements  levied  upon  the 
commanding  officer  of  a naval  ship  have  increased  markedly 
in  recent  years.  This  phenomenon  is  primarily  due  to  two 
factors:  the  ability  to  communicate  reliably  to  almost  any 
point  on  the  earth  and  the  ability  to  handle  and  condense  an 
enormous  volume  of  information  to  a succinct  and 
comprehensible  quantity.  Reliable  communications  stem  from 
the  technological  strides  in  communications  electronics  made 
during  the  last  three  decades.  The  ability  to  process  large 
quantities  cf  information  is  a result  of  the  digital 
computer.  Knowing  that  it  is  possible  to  receive  and 
correlate  data  from  units  deployed  around  the  world,  the  top 
echelons  cf  command  have  found  it  very  easy  to  demand  new 
reports  from  subordinate  units  for  areas  of  high  level 
interest . 

In  recent  years,  there  have  been  attempts  to  reduce  the 
amount  of  paperwork  generated  within  the  Department  of 
Defense.  In  1972,  Secretary  of  Defense  Melvin  2.  Laird 
directed  that  all  DOD  activities  review  and  eliminate 
paperwork  that  was  counterproductive  to  efficient  management 
efforts.  A year  earlier,  the  Vice  Chief  of  Naval  Operations 
solicited  the  aid  of  the  Naval  Audit  Service  to  perform  an 
audit  on  fleet  reporting  requirements.  The  Naval  Audit 
Service  was  in  the  midst  of  its  audit  when  the  Laird  policy 
was  decreed.  Although  there  was  considerable  motivation  to 
reduce  the  problem,  the  Naval  Audit  Service's  findings 
showed  that  the  situation  had  worsened  rather  than  improved. 
Of  147  specific  reporting  requirements  analyzed,  24  percent 
were  redundant.  By  1973  the  147  required  reports  had  grown 
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to  160  [9].  The  best  that  can  be  said  about  our  progress  in 
reducing  reports  is  that  our  efforts  may  have  slowed  the 
rate  of  growth. 

When  discussing  the  enormous  reporting  problems  within 
the  Department  of  Defense,  one  often  loses  sight  of  the 
origin  of  the  information.  While  the  plethora  of 
information  readily  available  to  the  highest  echelons  of 
command  may  often  allow  top  management  to  respond  guickly 
and  accurately  to  impending  crises,  this  information  is  not 
gathered  without  cost.  In  today's  Navy,  the  originators  of 
this  information,  the  units  of  the  fleet,  usually  must 
operate  without  the  benefit  of  automated  information 
processing.  This  means  that  each  bit  of  data  processed  in 
the  Pentagon's  information  system  was  introduced  into  the 
data  base  by  laborious  means.  Time  spent  gathering, 
collating  and  preparing  data  for  submission  was  not  spent  on 
improving  operational  readiness.  Although  we  have  not 
reduced  the  operational  responsibilities  of  commanding 
officers,  we  have  greatly  increased  their  administrative 
responsibilities.  This  additional  administrative  burden  has 
been  added  usually  without  a commensurate  strengthening  of 
the  capability  to  deal  with  increased  paperwork. 

One  attempt  by  the  Navy  to  reduce  reporting  requirements 
was  the  Composite  Reporting  (COMPREP)  study  concluded  in 
June  1975.  The  goal  of  this  study  was  to  devise  one 
composite  report  that  would  combine  the  information 
requirements  of  the  Naval  Force  Status  Report  (NAVPORSTAT) , 
Movement  Report  (MOVREP) , Casualty  Report  (CASREPT)  and 
Emergency  HILSTRIP  (Military  Standard  Recquisit ioning  and 
Issue  Proceedures) . The  study  developed  the  reporting 
structure,  training  and  software  necessary  to  accomplish 
this  goal.  Based  on  the  results  of  this  study,  the  Naval 
Electronics  System  Command  recommended  that  the  CONPREP 
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system  be  implemented  using  a dedicated  microprocessor  to 
support  the  system  [6]. 

At  the  shipboard  level,  an  originator  or  "drafter"  of  a 
report  usually  works  in  the  following  manner.  The  last 
example  of  the  submitted  report  is  reviewed  to  determine 
what  in  that  report  remains  pertinent.  The  information  that 
is  unchanged  since  the  last  submission  is  copied  into  the 
'new  report  along  with  other  data  reflecting  changes  in  the 
current  status.  This  process  of  selective  plagiarism  is 
almost  universal.  Selection  of  a pragmatic  model  upon  which 
to  base  the  report  assists  the  drafter  in  spending  the  least 
amount  of  his  time  in  report  generation  while  affording  the 
greatest  confidence  that  the  report  will  be  accepted.  The 
goal  of  acceptability  frequently  competes  ith  the  goal  of 
accuracy.  This  method  of  report  generation  is  particularly 
adaptable  to  data  processing  assistance. 

Since  efforts  to  reduce  have  not  been  successful, 
alternate  approaches  to  reducing  the  reporting  burden  on 
fleet  units  is  indicated.  If  we  can  not  eliminate,  at  least 
we  can  assist.  The  preceding  paragraph  inferred  that  the 
computer,  whose  appetite  for  data  partially  created  the 
report  problem,  may  also  be  a key  to  a solution.  By 
transferring  the  reported  information  from  paper  to  a medium 
that  can  be  accessed  by  computer,  modern  data  processing 
methods  can  be  applied  to  the  problem.  The  information  that 
remains  unchanged  between  individual  reports  could  be 
rapidly  included  in  the  new  report;  other  information  could 
be  edited  to  reflect  the  modified  situation.  The  commercial 
world  is  well  on  its  way  towards  automated  reporting  and 
information  processing.  The  computer  industry  has  responded 
with  the  development  of  hardware  and  software  appropriate  to 
the  task.  These  capabilities  can  now  be  provided  to  the 
small  military  command  at  a moderate  cost. 
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III.  REPORT  O^^NAIIiiG  IXSTEH  CONCEPTS  AND  CONSTRUCTS 


The  Report  Originating  System  is  composed  of  two 
computer  programs,  CREATE  and  ROS,  written  in  the  PL/M 
programming  language  for  an  3080  based  microcomputer.  The 
eguipment  used  to  implement  the  Report  Originating  System 
consisted  of  an  lntellec-8  I1CS  microcomputer  with  16,000 
bytes  of  random  access  memory,  a Shuggart  dual  floppy  disk 
drive  and  a Datamedia  Elite  2500  CRT  display  and  entry 
terminal.  Many  host  computer  conf igurations  were  feasible; 
this  hardware  was  selected  because  it  was  inexpensive  and 
was  available  in  the  U.  S.  Naval  Postgraduate  School's 
Computer  Laboratory.  The  CREATE  program  consists  of 
approximately  4500  bytes  of  machine  code  while  ROS  consists 
of  approximately  7200  bytes.  These  program  sizes  resulted 
in  7000  and  4000  bytes  of  memory  available  as  a work  area 
after  the  program  and  the  operating  system  were  loaded. 

A.  CONCEPTS. 

Reports  are  typically  subdivided  into  data  elements 
which  correspond  to  a paragraph  or  formatted  line.  Each 
data  element  generally  has  associated  with  it  a data  label 
which  may  be  a paragraph  heading  or  an  acronym  used  to 
describe  the  information  that  follows.  The  data  element  has 
been  chosen  to  be  the  building  block  upon  which  the  Report 
Originating  System  is  based.  Originally,  [4]  the  Report 
Originating  System  was  intended  to  assist  in  generating 
highly  formatted  recurring  operational  reports  such  as  the 
Naval  Forces  Status  Report  (NAVFORSTAT) , the  Movement  Report 
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(MOVREP)  , the  Casualty  Report  (CASREPT)  ar*d  RAINPORH  report. 
These  reports  are  very  coanion,  very  cryptic  and  highly  prone 
to  foraat  errors.  Inclusion  of  a "format  free"  formatting 
convention  broadened  the  range  of  application  of  the  Report 
Originating  System  to  include  generation  of  any  report  or 
document  wl ether  primarily  formatted  or  textual. 

Every  report,  whether  formatted  or  textual,  is 
considered  to  be  composed  of  data  elements.  This  is  easy  to 
envision  for  highly  formatted  reports  but  it  also  can  be 
applied  to  unformatted  reports  or  documents.  These  usually 
adhere  to  the  pattern  of  the  naval  letter  or  directive  - 
that  is,  they  are  divided  into  various  sections,  each  with 
an  identifying  paragraph  heading  followed  by  text.  These 
headings  make  natural  data  labels  in  the  Report  Originating 
System.  The  concept  of  the  basic  report  information  is 
expanded  from  the  single  line  of  the  NAVFORSTAT  or  MOVRSP  to 
the  section  or  paragraph  of  a unit  instruction.  This 
expansion  allows  a broader  range  of  applicable  documents. 

An  individual  data  element  is  composed  of  a data  label, 
the  basic  report  information,  error  analysis  information, 
and  prompting  information.  These  segments  of  the  data 
element  always  appear  in  this  order.  A collection  of  one  or 
more  data  elements,  preceded  by  a directory  to  the  data 
element  location  and  terminated  by  an  end  of  file  marker, 
forms  a "DAT"  (for  data  base)  file.  A DAT  file  is  the  end 
product  of  the  CREATE  program.  Figure  1 shows  a graphical 
representation  of  the  contents  of  a DAT  file. 


RECORD  MAP 


Figure  1 - A GRAPHICAL  REPRESENTATION  OF  A DAT  FILE 


3.  CONSIRDCTS. 
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A DAT  file  contains  all  the  necessary  information  used 
by  the  ROS  program  to  generate  a specific  report.  The 
composition  and  construction  of  the  DAT  file  sections  are 
described  below. 
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Element  Directory . 


Each  DAT  file  commences  with  a directory  section 
called  a RECORD  MAP.  This  map  indicates  the  initial  disk 
address  of  each  of  the  data  elements  contained  within  that 
report.  The  RECORD  MAP  section  occupies  the  first  twelve 
128  byte  records  within  the  DAT  file  and  provides  enough 
space  for  96  separate  entries.  Each  RECORD  MAP  entry  is  16 
bytes  (characters)  long.  The  first  14  bytes  contain  the 
data  label  while  the  last  two  bytes  point  to  the  disk 
location  of  the  described  data  element.  To  provide  for 
variable  data  label  lengths,  a data  label  is  preceded  by  and 
followed  by  a delimiter.  Thus,  the  RECORD  MAP  can 
accommodate  data  labels  containing  twelve  or  fewer 
characters.  Bytes  not  required  to  store  characters  or  disk 
location  pointers  are  filled  with  binary  zeros.  A byte 
containing  binary  zeros  would  look  like  00000000  while  a 
byte  containing  the  character  zero  would  look  like  00110000, 
the  ASCII  ''zero”  character  code. 


I 
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2*  Data  Eleaents. 

The  priaary  inforaation  content  of  a DAT  file  is 
included  in  the  data  element  section  of  the  file.  This 
section  contains  one  or  more  data  elements,  up  to  a aaxiaua 
of  96 . A data  element  should  be  included  for  each  possible 
data  label  in  a report.  Each  data  element  occupies  at  least 
three  128  byte  records;  one  for  the  basic  report 
information,  one  for  error  analysis  information  and  one  for 
prompting  information. 


a.  Basic  Report  Information. 


The  basic  report  information  section  of  a data 
element  is  also  referred  to  as  the  "code  area"  or  "code 
information  area".  The  initial  entry  in  the  coded  area  is 
the  data  label  bracketed  by  the  delimiters  "X"  or  "!".  The 
percentage  symbol  indicates  that  the  data  label  is  not  to  be 
included  in  the  final  report  while  the  exclamation  symbol 
indicates  inclusion.  The  remainder  of  the  coded  area 
contains  the  actual  information  to  be  included  in  the 
report.  If  this  information  requires  more  space  than 
initially  pro7ided,  additional  128  byte  records  are 
allocated.  The  coded  area  may  be  subdivided  into  subfields 
by  using  vlrgules  or  braces  to  facilitate  error  analysis. 
This  function  is  described  more  completely  in  Appendix  C. 
The  end  of  the  code  area  is  represented  by  the  end  of  code 
delimiter  (| ) . 
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b.  Error  Analysis  Inforiation. 


The  next  logically  sequential  area  of  the  DAT 
file  is  occupied  by  records  used  for  error  analysis.  This 
area  contains  error  analysis  conaands  separated  by  virgules 
or  braces  to  correspond  to  the  subfields  of  the  coded  area. 
The  error  analysis  area  is  terminated  by  the  end  of  error 
delimiter  (-•)  . 

c.  Prompting  Information. 


The  third  area  of  a data  element  is  used  to 
store  prompting  information.  Each  data  element  should  have 
associated  with  it  a prompting  question  which  indicates  to 
the  ultimate  user  the  information  required  by  that  data 
element.  Prompting  questions  should  explicitly  ask  for  the 
sought  information  and  may  contain  exemplary  or  amplifying 
information  as  well.  The  prompting  information  contains  as 
many  records  as  required  and  is  terminated  by  the  end  of 
prcapt  character  (4)  • 

The  sequence  of  coded  area,  error  analysis 
information  and  prompting  information  is  repeated  for  each 
data  element  included  in  the  RECORD  NAP. 

3.  Efld  gi  File. 


After  all  information  has  been  entered  regarding  the 
specific  data  elements  of  the  report,  the  end  of  file 
character,  a back  slash,  is  used  to  denote  the  end  of  the 
report.  Hhen  encountered,  this  symbol  will  cause  any  report 
information  resident  in  memory  to  be  written  to  the  disk  and 
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will  close  the  DAT  file.  The  DAT  file  may  be  reopened  and 
modified  using  the  ROS  program. 

The  basic  repeating  structure  of  the  DAT  file  allows 
initial  creation  of  a report  through  the  CREATE  program  and 
subsequent  definition  and  modification  of  the  report  by  the 
ROS  program.  The  DAT  file  is  composed  of  logically 
sequential  128  byte  records  used  to  store  the  information. 
Only  90  bytes  of  each  of  these  records  are  used  to  store  the 
actual  information;  this  space  is  adequate  to  store  a single 
line  of  text.  Most  of  the  remaining  bytes  are  unused  except 
for  the  bytes  used  to  point  to  the  storage  location  of  the 
next  logically  sequential  record.  These  pointers  allow 
insertion  of  data  in  the  middle  of  an  existing  file. 


C.  IMPLEMENTATION. 


Since  both  the  CREATE  program  and  the  ROS  program  are 
based  on  the  data  structure  of  the  DAT  file,  both  contain 
similar  data  handling  structures.  The  structures  in  the  ROS 
program  are  more  powerful  since  it  is  intended  that  the  ROS 
program  be  used  to  modify  the  DAT  files.  In  a typical 
application,  the  CREATE  program  would  be  used  to  build  an 
initial  "draft”  or  DAT  file.  This  initial  file  is  composed 
of  sequential  records  analagous  to  the  sequential  lines  of  a 
rough  draft.  Limited  editing  facilities  are  provided  in  the 
CREATE  program  since  most  changes  during  the  CREATE 
execution  would  correct  input  errors.  The  ROS  program 
provides  more  elaborate  editing  facilities  to  allow 
Insertion  and  deletion  of  text,  rapid  accessing  of  specific 
records  within  the  DAT  file  as  well  as  modifying  the  current 
line.  This  capability  requires  the  use  of  the  record 
pointer  system  inccrporated  at  the  end  of  each  record. 
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Anplif ication  of  the  functioning  of  each  subroutine  in 
aos  and  CHEATS  is  provided  in  the  next  chapter.  This 
information  is  provided  to  assist  in  further  program 
development  and  maintenance.  The  three  appendices 
ennumerate  the  use  of  HOS  and  CREATE  and  of  the  line  editor 
incorporated  in  each. 
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IV. 


^FTMARE  D2SIGN  FEATURES 


The  Report  Originating  System  is  composed  of  two 
independent  software  programs.  The  principal  program,  ROS, 
is  the  nucleus  of  the  system  and  generates  the  desired 
report  using  previously  stored  data  as  a basis  of 
information.  The  CREATE  program  produces  the  data  base  for 
a specific  report  from  which  the  ROS  program  may  generate 
reports. 

The  CREATE  program  is  a general  software  tool  used  to 
produce  a data  base  named  a DAT  file.  Each  DAT  file  is 
specifically  tailored  to  the  requirements  of  the  ultimate 
user  and  to  the  format  of  a specific  report.  Therefore, 
each  user  will  have  several  DAT  files  available  on 
individual  diskettes  to  meet  his  varying  reporting  needs.  A 
specific  DAT  file  is  composed  by  inputting  information 
concerning  base-line  information  for  the  report,  error 
analysis  criteria  and  prompting  questions.  The  details  of 
the  CREATE  program  concepts  and  operation  are  explained  in 
detail  in  Section  B and  in  Appendix  C. 

The  ROS  program  uses  the  information  contained  within 
the  individual  DAT  files  as  input.  The  ROS  program  contains 
the  necessary  data  handling  structures  to  allow  the  system 
user  to  make  appropriate  modifications  to  this  initial  data 
so  that  it  will  reflect  the  currently  reported  status.  The 
ROS  program  will  output  a new  file  named  a Message  (MSG) 
file  as  well  as  modifying  the  composition  of  data  within  the 
DAT  file.  This  MSG  file  contains  all  the  required  report 
information  in  a format  suitable  for  transmission  to  the 
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requesting  authority.  ROS  program  details  may  be  found  in 
the  next  section  and  in  Appendix  A. 

The  software  as  described  in  the  following  pages 
significantly  reflects  the  microcomputer  system  in  which 
these  programs  were  implemented.  Again,  the  specific 
microcomputer  system  used  was  chosen  primarily  because  it 
was  available.  Many  suitable  new  commercial  microcomputer 
systems  have  appeared  since  the  inception  of  this  project. 
The  following  discussion  of  program  structure  is  intended  to 
assist  any  further  development  or  maintenance  of  the  Report 
Originating  System  on  the  Intellec-8  system  or  the 
development  of  a comparable  software  package  on  another 
system. 


A.  ROS  PBOGEAH  ORGANIZATION. 


The  ROS  program  is  the  instrument  used  by  report 
drafters  to  originate  reports  required  by  higher  authority. 
A copy  of  the  program  appears  at  the  end  of  this  thesis. 
The  Report  Originating  System  is  written  in  the  PL/M  high 
level  programming  language,  compiled  on  an  IBM- 360/67 
computer  and  executed  on  an  Intellects  (8080  based) 
microcomputer  using  the  CP/N  monitor  control  program.  The 
program  is  divided  into  five  modules:  Operating  System 
Interface;  Initialization;  Editing;  Error  Analysis  and 
Output.  Each  of  these  modules  will  be  discussed  in  turn. 

Opgratinq  System  tatSEiiSS  Module. 


The  Operating  System  Interface  Nodule  provides  the 
interface  between  the  ROS  program  and  the  CP/N  monitor 
control  program.  Principally,  this  module  provides  the 


loput/Output  (I/O)  operations  necessary  for  the  program. 
The  nodule  consists  of  18  subroutines  most  of  which 
crypticly  pass  a "function  number"  and  an  "information 
address"  fro*  the  ROS  program  to  the  CP/tt  via  a system  entry 
point  named  "ENTRY".  Varying  the  function  number  provides 
various  capabilities  such  as  reading  from  and  writing  to 
peripheral  devices,  opening,  closing  and  searching  files  and 
transferring  data  between  memory  and  diskette  storage. 
Altogether  there  are  23  distinct  I/O  operations  that  may  be 
performed  by  the  CP/H  system.  These  are  covered  in  detail 
in  the  CP/H  INTERFACE  GUIDE  [2].  The  subroutines  comprising 
the  Operating  System  Interface  Module  fall  into  three 
functional  groups  discussed  below. 

a.  Console  Input/Output. 

(1)  CRTIN  - Defines  the  input  port  number  for 
the  console  and  extracts  ASCII  coded  information  from  that 
port  representing  characters  displayed  on  the  console. 

(2)  BEADC  - Calls  for  another  character  to  be 
read  from  the  console  and  then  translates  lower  case  ASCII 
characters  to  upper  case  ASCII  for  internal  representation. 

(3)  PRINTCHAR  - Transmits  ASCII  character  from 
memory  location,  through  the  computer  output  port,  to  the 
console  for  display. 

(4)  PRINTCHARI  - Determines  when  a control 
character  is  encountered  and  transmits  the  character  from 
memory  to  the  console.  Character  will  be  preceeded  by  an 
up-artow. 

(5)  SSLZ  ” Displays  a carriage  return  and  a 
line  feed  (l.e.  goes  to  the  beginning  of  the  next  line). 
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(6)  PaiNI  - Displays  the  string  of  ASCII 
characters  that  coainences  at  the  given  location  in  aemory 
and  is  terminated  with  a 

b.  Diskette  Input/Output. 

(1)  DISKREAD  - Reads  the  next  128  byte  record 
frcm  the  file  that  is  being  accessed.  The  contents  are 
placed  in  the  128  byte  area  of  memory  as  specified  by  the 
Direct  Hemory  Access  (DMA)  pointer. 

(2)  DISK  WRITE  - Writes  the  128  bytes  following 
the  address  specified  to  the  next  available  record  in  the 
file  being  accessed. 

(3)  OPEN  - Opens  the  file  specified  by  the 
address  passed  to  this  procedure.  If  the  file  is  not 
located  in  the  directory,  a diagnostic  message  is  returned. 
Opening  the  file  allows  further  transactions  with  that  file 
to  occur. 

(*♦)  QiQSE  - Closes  the  file  specified  by  the 
address  passed  to  this  procedure.  If  the  file  is  not 
located  in  the  directory,  a diagnostic  message  is  returned. 
Closing  the  file  updates  the  directory  entry  for  the  file 
and  terminates  further  processing  of  that  file. 

(5)  SEARCH  - Searches  the  directory  to  match 
the  <fil6naie>  <filetype>  contained  in  the  Pile  Control 
Block  (FCB)  passed  to  this  procedure.  If  no  natch  is  made, 
a diagnostic  message  is  returned;  otherwise  the  address  of 
the  first  occurrence  of  <filenane>  <filetype>  is  returned. 
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(6)  MAKE  - Creates  a directory  entry  for 
<filename>  <filetype>  as  represented  by  the  FCB  passed  to 
this  procedure.  The  file  created  is  initialized  to  empty. 

(7)  MOyE  - Moves  the  number  of  bytes 
(characters)  from  the  source  location  to  the  destination 
location.  Source  address,  destination  address  and  number  of 
bytes  (length)  are  passed  as  parameters. 


c.  Dtility  Functions. 


(1)  dOHI  - A monitor  procedure  which  passes  the 
function  number  and  the  address  of  the  information  to  the 
CP/M.  This  procedure  does  not  return  a value.  It  is  called 
by  many  of  the  previously  mentioned  subroutines. 

(2)  M0N2  - A monitor  procedure  providing  the 
same  function  as  M0N1  except  that  a return  value  is 
expected . 

(3)  M0N3  - A monitor  procedure  providing  the 
same  function  as  MOM2  except  that  the  returned  value  is  an 
"address"  type  rather  than  a "byte"  type. 

(4)  SETS DMA  - Sets  the  Direct  Memory  Access 
(DMA)  address  to  the  address  of  the  128  byte  DMA  buffer 
specified.  Subsequent  disk  I/O  operations  will  take  place 
starting  with  the  memory  location  specified. 

(5)  LIFTHEAD  - Lifts  the  read/write  head  from 
the  diskette  drive  currently  in  use. 

(6)  BBROR  - This  procedure  is  called  from  other 
procedures  and  prints  diagnostic  messages  to  the  operator. 
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2. 


Initialization  Hodule. 


The  initialization  module  consists  of  14  subprograms 
which  open  the  appropriate  DAT  file,  create  a HSG  file  in 
which  to  store  the  output  and  create  working  maps  to  include 
those  data  elements  selected  for  modification  and  those  data 
elements  which  are  to  appear  in  the  resultant  MSG  file. 
These  working  maps  are  derived  from  the  responses  to  data 
element  queries  initiated  by  this  module.  The  module 
subroutines  may  be  classified  in  three  functional  groups. 


a.  File  Operations. 


(1)  WAKBSMSGSFILE  - This  procedure  creates  a 
MSG  file  control  block  (FC3)  and  creates  and  opens  a MSG 
file.  First  the  procedure  inserts  the  <filetype>,  '*MSG” 
into  the  MSG  file  control  block.  Next  the  "extent"  and  the 
"next  record"  fields  of  the  DAT  PC3  are  zeroed.  A search  of 
the  directory  is  made  to  determine  if  a HSG  file  already 
exists;  if  so,  an  error  message  is  returned.  Next,  a 
directory  entry  for  <f ilename>.MSG  is  made  and  finally,  the 
file  is  opened. 

(2)  I NIT  - This  procedure  opens  the  DAT  file 
and  MSG  file.  First  <filename>  is  moved  into  the  FC3  and 
then  the  procedure  calls  MAKESMSGSFILE  to  create  and  open  a 
MSG  file.  Next,  the  <filetype>,  "DAT",  is  moved  to  the  DAT 
FCE  and  the  "extent"  and  "next  record"  fields  of  this  ?C3 
are  zeroed.  The  file  <f ilename>. DAT  is  opened  and  then 
checked  to  see  if  the  file  was  successfully  opened. 
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(3)  INCSRM  - Increments  the  record  map  pointer. 

(4)  IHCSWM  - Increments  the  working  map 

point  er. 

(5)  PRIMTSDATASE  - This  procedure  displays  the 

data  element  labels  associated  with  a DAT  file  in  order  that 
selection  of  the  data  elements  may  be  accomplished.  This 
procedure  walks  sequentially  through  the  record  map  area, 

strips  the  data  label  delimiters  (*  or  !)  from  the  data 

label  and  displays  them.  The  process  is  repeated  until 
either  the  last  data  label  has  been  displayed  or  a flag  has 
been  set  which  ceases  the  display. 

(6)  SAVE$EX$RN$NR  - This  procedure  calculates 

the  location  of  a data  element  and  also  calculates  the 
number  of  records  associated  with  the  data  element.  The 

location  is  comprised  of  its  "extent”  and  "record  number". 
The  extent  is  the  first  byte  in  the  directory  entry,  the 
record  number  is  the  next  byte  and  the  length  is  calculated 
by  computing  the  difference  between  the  record  number  of  the 
next  data  element  and  of  the  present  data  element. 

(7)  PRINT  SPACE  - Prints  blanks  equal  to  the 
length  of  the  data  label. 

(8)  CHKiRESPONSE  - Goes  sequentially  through 
all  data  elements  checking  for  responses  to  queries.  If  a 
"Y"  response  is  given,  SAV2$EX$RN$NR  is  called,  if  "N"  is 
given  the  next  data  element  is  processed  and  if  "S"  is  given 
in  response,  the  interrogation  process  is  stopped  for  the 
remaining  data  labels  and  the  program  continues  execution. 

(9)  SEL$WE  - This  procedure  locates  the 
UORKSHAP  area  in  memory,  defines  the  number  of  data  labels 
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to  be  printed  on  one  CRT  line,  prints  out  the  query,  "SELECT 
DATA  ELEMENTS  TO  WORK  WITH",  displays  data  labels  and  checks 
the  responses.  If  the  data  eleaents  to  be  nodified  have  . 
been  selected,  the  procedure  prints  out  the  query,  "SELECT 
DATA  ELEMENTS  TO  BE  INCLUDED  IN  THE  REPORT".  The  selection 
process  is  repeated  with  a continuation  of  the  workinq  lap 
area  being  constructed. 

(70)  EE-SELECT  - This  procedure  sets  the 
logical  flags  which  allow  SELSWE  to  create  the  working  map 
area  for  the  data  elements  to  be  included  in  the  report. 

(11)  SETS  MEM  - The  limits  of  available  memory 
are  defined  and  the  working  map  area  is  set  up.  The  next 
record  number  to  read  is  entered  in  the  DAT  FCB,  the  number 
of  records  occupied  is  determined  and  a counter  for  the 
number  of  records  read  is  set  to  zero. 

(12)  OPBNSEXT  - Sets  the  "extent"  field  in  the 
DAT  FCB  and  if  the  DAT  FCB  is  not  found  in  the  directory,  a 
diagnostic  error  message  is  returned. 

(13)  HEADSDSREC  - Checks  to  see  if  the  system 
is  in  the  proper  extent  and  if  not,  opens  the  proper  extent, 
finds  the  appropriate  record  to  start  with.  Reads  in  the 
128  byte  record  and  checks  to  see  if  it  was  read  in 
properly.  The  number  of  records  read  counter  is  incremented 
and  the  data  area  pointer  is  moved  to  the  beginning  of  the 
next  record.  The  next  record  to  be  read  is  set  to  the 
beginning  of  the  TBUFF  area  which  contains  the  names  of  the 
files  loaded  into  the  transient  program  area  of  memory. 

(14)  RBAD$DAT  - Checks  to  see  if  the  available 
memory  has  been  consumed  and  if  the  number  of  records  read 
is  equal  to  the  number  of  records  in  that  data  element.  If 
so,  the  reading  of  records  is  completed.  If  a new  data 
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elenent  is  being  accessed,  the  location  and  nunber  of 
records  inforuation  is  reset.  If  all  records  have  not  been 
read,  the  next  record  is  read.  Finally,  the  extent  and 
record  number  fields  of  the  DAT  FCB  are  set  to  the  current 
values. 

(15)  “ The  current  location  of  the 
working  map  is  updated  and  the  extent  and  the  next  record 
fields  of  the  DAT  FCB  are  reset.  The  pointer  to  the  data 
area  currently  used  is  saved  and  the  subsequent  record  is 
read.  The  location  of  the  working  map  is  saved  and  the  next 
location  of  data  is  updated.  This  procedure  continues  to 
read  records  of  multiple  record  data  elements. 

(16)  ALLOCATE  - Allocates  an  empty  record  from 
the  freelist  area  of  the  diskette  to  allow  insertion  of  a 
line  in  an  existing  file.  Bookkeeping  operations  of 
maintaining  freelist  pointers  and  of  identifying  the 
appropriate  extent  and  record  for  reading  and  writing 
operations  are  accomplished. 

(17)  FREE  - Releases  a record  after  an  entire 
line  has  been  deleted  from  an  existing  file.  The  released 
record  is  placed  on  the  front  of  the  freelist  queue. 

(18)  DIGSTOSHUW  - Converts  a string  of  ASCII 
digits  to  a numerical  value  so  that  they  may  be  used  in 
arithmetic  operations. 

(19)  LONG  - Determines  the  number  of  characters 
in  a specific  data  label. 
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3.  Editing  Module  . 

The  Editing  Module  provides  the  capability  to  nodify 
the  information  contained  within  the  DAT  file.  There  are 
two  modes  of  operation  for  this  module,  the  prompted  mode 
and  the  non-prompted  mode..  The  prompted  mode  performs  the 
editing  operations  without  the  user  being  directly  aware 
that  they  are  being  accomplished;  the  non-prompted  mode 
requires  that  the  user  explicitly  invoke  each  of  the  desired 
editing  commands.  The  Editing  Module  is  composed  of  27 
subroutines  which  manipulate  characters  in  the  old  and  new 
buffer  areas  and  implements  updating  the  information  stored 
in  the  DAT  file.  The  subroutines  are  divided  into  two 
functional  groups;  those  associated  with  the  line  editing 
functions  and  those  associated  with  updating  the  information 
contained  in  the  DAT  file.  The  use  of  the  line  editor  in 
manipulating  information  between  the  old  buffer  and  the  new 
buffer  is  discussed  in  Appendix  B. 


a.  Line-Editing. 


(1)  EACKSOP  - This  procedure  affects  the  new 
line  buffer.  The  new  buffer  pointer  is  backspaced  one  space 
and  a blank  is  printed  followed  by  a backspace  to  allow 
insertion  of  a new  character.  If  the  line  is  backspaced  to 
the  beginning  position,  a bell  is  sounded. 

(2)  fifilBiiaiOifi  - The  contents  of  the  new 
buffer  area  are  moved  to  the  old  buffer  area  and  the  old  and 
new  buffer  pointers  are  reset  to  zero. 

(3)  QLQI - The  next  character  in  old 
buffer  is  moved  into  the  new  buffer  and  inserted  after  the 


29 


current  position  of  the  new  buffer  pointer.  Both  old  and 
new  buffer  pointers  are  incremented. 

(4)  ECHOSCN  - Moves  the  next  character  from  the 
old  buffer  to  the  next  position  in  the  new  buffer.  The 
character  is  displayed  on  the  console  CRT.  Both  the  new  and 
old  buffer  pointers  are  incremented. 

(5)  COPYSOSE  - If  the  end  of  the  old  buffer  has 
not  been  reached,  then  the  procedure  ECHOSON  is  called. 
Otherwise,  a bell  is  sounded. 

(6)  P$MQVE$OH  - Moves  the  contents  of  the  old 
buffer  to  the  new  buffer  up  to  the  character  indicated  in 
the  old  buffer. 

(7)  ENTER  - This  procedure  displays  either  the 
or  '*>"  character  and  resets  the  flag  "INSERT”. 

(8)  PRINISOLD  “ Displays  the  contents  of  the 
old  buffer,  including  control  characters,  followed  by  a 
carriage  return  and  a line  feed. 

(9)  PRINTSNEW  - Displays  the  contents  of  the 
new  buffer  including  control  characters. 

(10)  PBINll^OTH  - Displays  the  contents  of  the 
old  buffer  followed  by  the  contents  of  the  new  buffer. 

(11)  COPTIRHSOSN  - Copies  the  remaining 
characters  frca  the  old  buffer  to  the  new  buffer.  Displays 
the  character  when  completed. 

<12)  BSSO||j  - Backspaces  both  the  old  and  new 
buffer  pointers  by  one  character  position.  If  either 
pointer  is  in  the  initial  buffer  position  then  a bell  rings. 
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(13)  COPYSON  - Searches  the  old  buffer  from  the 
current  position  of  the  old  buffer  pointer  until  the  first 
occurrence  of  the  character  passed  to  this  procedure.  If  no 
Batch  occurs,  a bell  is  sounded.  Otherwise,  the  characters 
froB  the  current  position  of  the  old  buffer  pointer  up  to 
the  identified  character  are  copied  to  the  new  buffer  and 
displayed  on  the  screen. 

(14)  DELETE  - This  procedure  searches  the  old 
buffer  for  the  first  occurrence  of  the  identified  character. 
If  this  character  is  not  found,  a bell  is  sounded. 
Otherwise,  all  characters  are  deleted  up  until  the  first 
occurrence  of  the  specified  character  and  a "X”  character  is 
displayed  in  the  position  of  each  deleted  character.  The 
old  buffer  is  finally  compressed  to  remove  the  empty  spaces 
resulting  from  the  deletions. 

(15)  DEL$N  - Resets  the  old  buffer  pointer  and 
the  new  buffer  pointer  to  zero  and  displays  the  end  of  file 
character  (back  slant)  on  the  console  CRT. 

(16)  DISPLAY$R.1$0$N  - This  procedure  will  print 
blanks  up  until  the  current  position  of  the  old  buffer 
pointer  and  then  will  display  the  remaining  characters  in 
the  old  buffer.  The  cursor  moves  to  the  beginning  of  the 
next  line  on  the  CRT  and  the  contents  of  the  new  buffer  are 
displayed. 


(17)  DELIO  - The  characters  from  the  current 
position  of  the  old  buffer  pointer  up  to  the  end  of  the  old 
buffer  are  deleted.  Percentage  signs  are  displayed  in  place 
of  the  deleted  characters.  If  there  are  no  characters  in 
the  old  buffer,  a bell  is  sounded. 
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(18)  ESCAPE  - This  procedure  turns  off  any 
special  meaning  of  the  character  to  follow  and  enters  the 
character  into  the  new  buffer.  This  procedure  may  be  usad 
to  override  the  action  of  extended  line  editor  commands. 

(19)  PRINTSTAB  - Enters  the  special  tab 
character  as  the  next  character  in  the  new  buffer  and 
displays  the  tab  character  on  the  console.  If  the  tabulation 
will  exceed  the  allowed  size  of  the  new  buffer,  a bell  is 
sounded. 


(20)  BEGINSWHD  - This  procedure  backspaces  to 
the  first  character  of  a word. 


b.  Opdating  Procedures. 


(1)  INC$PA  - Increments  the  pointer  in  the 

current  DAT  file  that  points  to  the  character  accessed. 

(2)  INCtCA  - Increments  the  pointer  to  the 

record  containing  the  information  base  in  the  OAT  file. 

(3)  INCSBR  - Increments  the  pointer  to  the 
record  containing  the  error  analysis  information  in  the  DAT 
file. 


(^}  HOyESDLSHEW  > Moves  the  data  label  frcm  the 
old  buffer  to  the  new  buffer.  If  the  fully  prompted  mode  is 
in  effect,  the  characters  are  merely  moved  to  the  new 
buffer;  if  the  non-pronpted  mode  is  in  use,  the  characters 
are  moved  to  the  new  buffer  and  are  also  displayed  on  the 
console. 
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(5)  HoyEiCOPESOLD  - The  data  base  inforaation 
is  aoved  from  the  DAT  file  to  the  old  buffer  for  editing. 
Characters  are  moved  singularly  until  the  end  of  code 
character  (|)  is  encountered.  If  the  non-prompted  mode  has 
been  selected,  characters  are  echoed  as  they  are  moved. 
When  all  characters  have  been  moved  to  the  old  buffer, 
novSiOLSNEW  is  called  and  the  data  label  is  moved  to  the  new 
buffer. 


(6)  SET$P IR  - This  procedure  sets  pointers  to 
the  beginning  of  the  error  analysis  section  and  the 
beginning  of  the  prompting  question  area. 

(7)  NEXTSDB  - This  procedure  sets  up  the  system 
to  edit  a data  element.  First  MOVE$CODE$OLD  is  called 
followed  by  1NC$DA  and  SETSPia. 

(8)  0PDATE5DAT  - Updates  the  information  to  be 
included  in  the  DAT  file.  Characters  are  transferred  from 
the  new  buffer  to  a bolding  area  called  COD£$A,  starting 
with  the  character  following  the  data  label  up  to  the  end  of 
the  new  buffer.  The  end  of  code  delimiter  (|)  is  inserted 
at  the  end  of  the  transferred  data.  This  routine 
repetitively  calls  the  subroutine  INSSINC  which  transfers 
the  data  one  character  at  a time. 

** • Module. 


The  error  module  chechs  for  possible  error 
conditions  and  performs  the  error  analysis  operations  on  the 
edited  data.  Error  commands  contained  in  the  error  command 
records  of  the  DAT  file  are  interpreted  and  determine  the 
comparative  procedures  to  be  executed.  Procedures  which 
accomplish  the  desired  error  checking  process  are 
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incorporated  within  this  module.  Utility  functions,  such  as 
typing  individual  characters  as  alphabetic  or  numeric,  are 
included  and  error  warning  diagnostic  messages  for  display 
to  the  operator  are  available.  The  Error  Module  also 
contains  the  procedure  LEDIT  which  provides  the  line  editing 
capability.  The  module  is  divided  into  the  Interpretation, 
Error  Checking,  Utility  and  Editing  groups. 


a.  Utility  Group. 

(1)  BEiEWTER  - The  contents  of  the  new  buffer 
a..€  moved  to  the  old  buffer  and  the  updated  contents  of  the 
old  buffer  are  displayed  followed  by  the  contents  of  the  new 
buffer.  This  confirms  that  the  updating  process  has  been 
accomplished  without  error. 

(2)  WARMING  - Displays  various  warning  messages 
when  an  erroneous  condition  occurs. 

(3)  I NCSHB  - Increments  a character  pointer  in 
the  new  buffer. 

(4)  SPSPDSCOa  - Used  to  identify  the 
punctuation  characters,  space,  period  and  comma. 

(5)  ALPHA  - Defines  alphabetic  characters  to  be 
letters  A - Z,  the  characters  CTRL  A - CTRL  Z or  a period, 
space  or  comma. 

(6)  liUfiSfilC  - D efines  numeric  characters  as  the 
digits  0-9,  the  minus  sign  (-)  or  space,  period  or  comma. 
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(7)  y EX?$  £F  - Walks  through  the  DAT  file  to  get 
the  next  subfield  of  a data  element.  Pointers  to  the 
information  area  and  data  analysis  area  are  incremented 
appropriately. 

b.  Interpretation  Group. 

(1)  DO$CHD  - Checks  for  a null  error  command 
vbich  returns  control  to  the  calling  statement.  Otherwise, 
error  commands  are  identified  by  the  first  letter  of  the 
command  and  the  appropriate  error  checking  procedure  is 
called. 

c.  Error  Checking  Group. 

("•)  CHKSALPHA  - Checks  the  contents  of  the  new 
buffer  up  to  the  next  error  analysis  delimiter  (virgule  or 
brace)  for  alphabetic  characters.  A warning  message  is 
returned  if  ether  characters  are  encountered. 

(2)  CHKgWUHEaic  - Checks  the  contents  of  the 
new  buffer  up  to  the  next  delimiter  for  numeric  characters. 
A warning  message  is  displayed  on  an  exception  basis. 

(3)  CHKSPEBCEHT  - Compares  the  revised 
numerical  contents  of  a subfield  against  the  previous 
contents.  If  the  difference  exceeds  a specified  amount,  a 
warning  message  is  displayed. 

(4)  CHKS  SEQUENCE  - Checks  if  the  contents  of 
the  new  subfield  are  sequential  to  the  contents  of  the  old 
subfield.  Hay  be  used  to  check  report  serial  numbers. 
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(5)  CHKSLENGTH  - Checks  if  the  contents  of  the 
new  subfield  occupy  the  sane  number  of  character  positions 
as  the  old  subfield. 

(6)  CHKSERR  - Walks  through  the  error  analysis 
record  of  the  DAT  file  one  subfield  at  a time  until  the  end 
of  error  character  (-•)  is  encountered.  Individual  error 
commands  are  interpreted  through  calls  on  DOSCHD.  The 
pointer  in  the  error  analysis  record  is  incremented. 

(7)  ASKSQUESTIOM  - Displays  the  prompting 
guestion  applicable  to  the  subfield  under  consideration. 

(8)  CHK$ ANSWER  - Checks  the  response  given 
under  the  prompted  mode  for  compliance  with  error  commands. 
Performs  the  same  function  as  CHK$ERB. 

(9)  IHDilP  ~ Checks  if  the  contents  of  the  new 
buffer  will  overwrite  the  error  analysis  section  of  the  DAT 
file,  places  a virgule  after  the  response  to  the  prompted 
guestion  and  accomplishes  error  analysis  for  that  response. 


d.  Editing. 


(1)  LEDIT  - Acts  as  an  input  interpreter  while 
in  the  edit  mode.  Input  strings  are  first  checked  for  basic 
line  editor  commands,  then  for  extended  line  editor 
commands.  The  appropriate  editing  routines  are  called  in 
these  cases.  If  a rubout  character  is  entered,  the  new 
buffer  pointer  is  backspaced.  If  none  of  the  above  special 
characters  are  encountered,  input  characters  are  echoed 
until  the  new  buffer  is  filled.  When  this  occurs,  a bell  is 
sounded. 
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5*  Q!lt£Ut  Module . 


i 

i 
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This  nodule  performs  the  actual  updating  of  the 
edited  information  in  the  DAT  file  and  also  incorporates 
this  information  into  the  MSG  file.  Included  are  routines 
to  perform  the  necessary  file  operations  and  an  EDIT 
procedure  which  controls  the  editing  process. 

a.  MSG  Pile  Operations. 

(1)  I H C$  M £G  - Creates  a buffer  to  be  used  to 
transfer  data  between  the  absolute  addresses  80  - 100 
hexadecimal.  The  diskette  directory  is  checked  to  see  if  a 
MSG  file  exists  and  returns  a warning  if  it  does.  A pointer 
in  this  buffer  is  incremented  with  each  call. 

(2)  MOVESHSG  - Copies  the  edited  information, 
character  by  character,  into  the  DAT  file.  A check  is  made 
to  see  if  the  data  label  is  to  be  included  in  the  report. 
Characters  are  moved  from  the  DAT  file  to  the  MSG  file  until 
an  end  of  code  delimiter  (|)  is  encountered.  The  MSG  file 
line  is  ended  with  a carriage  return  and  a line  feed. 

(3)  HRITE$MSG  - Writes  the  record  currently 
accessed  to  the  MSG  file. 

(*♦)  C^.O^E$FILES  - Closes  the  MSG  file  and  saves 
the  appropriate  extent  and  record  information. 
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b.  CAT  Pile  and  Dtility  Operations. 

(1)  3LAWK$3UF  - Blanks  out  the  contents  of  the 
old  and  new  buffers. 

(2)  BASB$NBXT$DE  - Brings  in  the  information 
concerning  the  next  selected  data  element  into  the  transfer 
buffer.  Working  map  pointers  are  incremented  to  indicate 
the  next  data  element. 

(3)  UPDAT BSD AT SPILE  - Coordinates  the  actual 

updating  of  the  DAT  file  by  calling  MOVESMSG.  DAT  file 
extent  and  record  entries  in  the  DAT  FCB  are  updated.  This 

process  is  continued  for  all  data  elements. 

c.  Editing  Coordination. 


(1)  EDIT  - Coordinates  the  editing  process  for 
the  prompted  and  non-proapted  modes.  If  in  the  prompted 
mode,  prompting  questions  are  displayed  and  then  LEDIT  is 
called  to  handle  the  response  and  the  response  is  checked. 
This  sequence  continues  for  all  subfields  for  that  data 
element.  In  the  non-prompted  mode,  LEDIT  is  called  to 
process  the  desired  changes  and  the  entered  data  undergoes 
error  analysis.  If  a warning  has  resulted  from  error 
analysis,  the  same  data  element  is  reprocessed.  Otherwise, 
the  DAT  file  is  updated,  the  old  and  new  buffers  are  blanked 
out  and  the  next  data  element  is  processed.  This  pattern  is 
continued  until  the  end  of  file  character  (back  slant)  is 
encountered  and  then  the  MSG  file  is  created  and  closed. 
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B.  CREATE  PROGRAM  ORGANIZATION. 

The  CREATE  prograa  is  used  by  commands  requiring  reports 
from  their  subordinates  to  develop  a DAT  file  with  its  data 
base  of  reporting  information.  The  CREATE  program  is  also 
available  to  the  general  user  to  provide  a local  capability 
of  generating  DAT  files  for  unique  reports  or  DAT  files  for 
interim  use.  In  order  to  assure  report  uniformity  and 
content  reliability,  it  is  imperative  that  standardized  DAT 
files  be  produced  and  distributed  by  the  highest  possible 
level  in  the  chain  of  command.  A copy  of  the  CREATE  program 
is  included  at  the  end  of  this  thesis.  The  program  was 
written  in  the  PL/M  programming  language,  compiled  on  an 
IBM-360/67  computer  and  designed  for  execution  on  an 
Intellec-8  microcomputer  using  the  CP/M  operating  system. 
The  program  is  divided  into  three  main  modules; 
Initialization-Interface;  Input-Editing  and  Finish.  Many  of 
the  subroutines  discussed  in  the  following  sections  are  also 
included  in  the  ROS  program  software. 


1 • Initialization -Inter face  Module. 

The  Initialization-Interface  Module  includes 
subprograms  to  provide  at  interface  between  the  CREATE 
program  data  structures  and  the  CP/M  control  monitor 
program.  The  module  opens  a DAT  file  if  one  has  not  already 
been  opened  under  that  particular  <filename>  on  the  diskette 
in  use. 

i. 

I 

I 
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a.  Console  Input/Output . 


(1)  CRTIN  - Defines  the  input  port  number  for 
the  console  and  extracts  ASCII  coded  information  from  that 
pert  representing  characters  displayed  on  the  console. 

(2)  SliOC  - Calls  for  another  character  to  be 
read  from  the  console  and  then  translates  lower  case  ASCII 
characters  to  upper  case  ASCII  for  internal  representation. 

(3)  PRIW ICHAR  - Transmits  ASCII  character  from 
memory  location,  through  the  computer  output  port,  to  the 
console  for  display. 

(h)  PRINTCHARI  - Determines  when  a control 
character  is  encountered  and  transmits  the  character  from 
memory  to  the  console.  Character  will  be  preceeded  by  an 
up-arrow. 


(5)  CFLP  - Displays  a carriage  return  and  a 
line  feed  (i.e.  goes  to  the  beginning  of  the  next  line). 

(6)  PRINT  - Displays  the  string  of  ASCII 
characters  that  commences  at  the  given  location  in  memory 
and  is  terminated  with  a 


b.  Diskette  Input/Output. 

(1)  MOV 2 - Moves  the  number  of  bytes 
(characters)  from  the  source  location  to  the  destination 
location.  Source  address,  destination  address  and  number  of 
bytius  (length)  are  passed  as  parameters. 
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' (2)  FILL  - Used  to  fill  the  destination  record 

with  a particular  character  passed  to  this  routine.  FILL 
may  be  used  to  pad  out  a record  with  blanks  or  zeros. 

(3)  M0H1  - A monitor  procedure  which  passes  the 
function  number  and  the  address  of  the  information  to  the 
CP/M.  This  procedure  does  not  return  a value.  It  is  called 
by  many  of  the  previously  mentioned  subroutines. 

(4)  MON2  - A monitor  procedure  providing  the 
same  function  as  M0N1  except  that  a return  value  is 
expected . 

(5)  M0M3  - A monitor  procedure  providing  the 
same  function  as  M0N2  except  that  the  returned  value  is  an 

I "address"  type  rather  than  a "byte"  type. 

(6)  EFROR  - This  procedure  is  called  from  other 
procedures  and  prints  diagnostic  messages  to  the  operator. 

(7)  DIG$TO$NDM  - Converts  a string  of  ASCII 
digits  to  a numerical  value  so  that  they  may  be  used  in 
numeric  operations. 

2.  In£Ut^Editina  Module . 

I .1. ....... 

and  builds  the  DAT  file  opened  by  the 
Initialization-Interface  Nodule.  The  contents  of  a DAT  file 
ace  a repetitive  sequence  of  data  base  or  "code 
information",  "error  commands"  and  "prompt  information". 
These  three  categories  of  information  are  required  for  each 
data  element  included  in  the  report.  Although  null  or  empty 
categories  ace  allowed  (but  not  recommended) , at  least  one 
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120  byte  record  is  allocated  for  each.  If  the  input 
inforoaticn  exceeds  the  initial  128  byte  allocation, 
additional  sequential  records  are  provided.  Since  the  order 
of  these  three  types  of  information  is  the  keystone  of  the 
Report  Originating  System  software,  it  is  imperative  that 
data  entered  during  the  creation  of  a DAT  file  conform  to 
this  sequence. 


a.  Input. 


(1)  PROMPT  - Displays  to  the  operator  a 
prompting  message  to  input  coded  information,  error  commands 
or  prompt  information. 

(2)  INCSrh  - Increments  the  record  map  pointer. 

(3)  GO$WEXT$REC  - Increments  the  storage 
pointer  to  the  next  even  record  boundary  and  increments  the 
counter  for  the  number  of  records  utilized.  For  every  128 
records  used,  the  extent  counter  is  incremented  and  the 
record  number  counter  is  reset  to  zero.  The  number  of 
remaining  records  is  decremented. 

(4)  MOVESDL  - Moves  the  data  label  into  the 
record  map  area  and  moves  the  extent  and  record  numbers  into 
the  two  bytes  following  the  data  label. 

b.  Editing. 

(1)  BACKSUP  - This  procedure  affects  the  new 
line  buffer.  The  new  buffer  pointer  is  backspaced  one  space 
and  a blank  is  printed  followed  by  a backspace  to  allow 
Insertion  of  a new  character.  If  the  line  is  backspaced  to 
the  beginning  position,  a bell  is  sounded. 
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(2)  MOVE$TO$OI<D  - The  contents  of  the  new 
buffer  area  are  moved  to  the  old  buffer  area  and  the  old  and 
new  buffer  pointers  are  reset  to  zero. 

(3)  ECHOSON  - Moves  the  next  character  from  the 
old  buffer  tc  the  next  position  in  the  new  buffer.  The 
character  is  displayed  on  the  console  CRT.  Both  the  new  and 
old  buffer  pointers  are  incremented. 

(4)  C0PY30NE  - If  the  end  of  the  old  buffer  has 
not  been  reached,  then  the  procedure  ECHOJON  is  called. 
Otherwise,  a bell  is  sounded. 

(5)  P$MOVE$ON  - Moves  the  contents  of  the  old 
buffer  tc  the  new  buffer  up  to  the  character  indicated  in 
the  old  buffer. 

(6)  ENTER  - This  procedure  displays  either  the 
or  ”>”  character  and  resets  the  flag  "INSERT”. 

(7)  PRINTSOLD  - Displays  the  contents  of  the 
old  buffer,  including  control  characters,  followed  by  a 
carriage  return  and  a line  feed. 

(8)  PRINTSNEW  - Displays  the  contents  of  the 
new  buffer  including  control  characters. 

(9)  PRINTSBOyf?  - Displays  the  contents  of  the 
old  buffer  fcllowed  by  the  contents  of  the  new  buffer. 

(10)  C0P1[iRM30$N  - Copies  the  remaining 
characters  from  the  old  buffer  to  the  new  buffer.  Displays 
the  character  when  completed. 
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(11)  BSSOtN  - Backspdces  both  tne  old  and  new 
buffer  pointers  by  one  character  position.  If  either 
pointer  is  in  the  initial  buffer  position  then  a bell  is 
sounded . 


(12)  COPYtOS  - Searches  the  old  buffer  froa  the 
current  position  of  the  old  buffer  pointer  until  the  first 
occurrence  of  the  character  passed  to  this  procedure.  If  no 
Batch  occurs,  a bell  is  sounded.  Otherwise,  the  characters 
from  the  current  position  of  the  old  buffer  pointer  until 
the  identified  character  are  copied  to  old  buffer  pointer  up 
to  the  identified  character  are  copied  to  the  new  buffer  and 
displayed  on  the  screen. 

(13)  DELETE  - This  procedure  searches  the  old 
buffer  for  the  first  occurrence  of  the  identified  character. 
If  this  character  is  not  found,  a bell  is  sounded. 
Otherwise,  all  characters  are  deleted  up  until  the  first 
occurrence  of  the  specified  character  and  a "il”  character  is 
displayed  in  the  position  of  each  deleted  character.  The 
old  buffer  is  finally  conpressed  to  remove  the  empty  spaces 
resulting  frcm  the  deletions. 

(14)  DELIN  - Resets  the  old  buffer  pointer  and 
the  new  buffer  pointer  to  zero  and  displays  the  end  of  file 
character  (back  slant)  on  the  console  CRT. 

(15)  DISPLAYSRMSOSR  - This  procedure  will  print 
blanks  up  until  the  current  position  of  the  old  buffer 
pointer  and  then  will  display  the  remaining  characters  in 
the  old  buffer.  The  cursor  moves  to  the  beginning  of  the 
next  line  on  the  CRT  and  the  contents  of  the  new  buffer  are 
displayed. 
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(16)  DELlO  - The  characters  from  the  current 
position  of  the  old  buffer  pointer  up  to  the  end  of  the  old 
buffer  are  deleted.  Percentage  signs  are  displayed  in  place 
of  the  deleted  characters.  If  there  are  no  characters  in 
the  old  buffer,  a bell  is  sounded. 

(17)  ESC^E  - This  procedure  turns  off  any 
special  meaning  of  the  character  to  follow  and  enters  the 
character  into  the  new  buffer.  This  procedure  may  be  used 
to  override  the  action  of  extended  line  editor  commands. 

(18)  PRINTSTAB  - Enters  the  special  tab 
character  as  the  next  character  in  the  new  buffer  and 
displays  the  tab  character  on  the  console.  If  the  tabulation 
will  exceed  the  allowed  size  of  the  new  buffer,  a bell  is 
sounded. 


(19)  LEDI I - Acts  as  an  input  interpreter  while 

in  the  edit  mode.  Input  strings  are  first  checked  for  basic 
line  editor  commands,  then  for  extended  line  editor 
commands.  The  appropriate  editing  routines  are  called  in 
these  cases.  If  a rubout  character  is  entered,  the  new 
buffer  pointer  is  backspaced.  If  none  of  the  above  special 
characters  ate  encountered,  input  characters  are  echoed 
until  the  new  buffer  is  filled.  ahen  this  occurs,  a bell  is 
sounded.  ' 

(20)  COMTlPILL  - Stores  the  contents  of  the  old 
buffer  into  the  appropriate  record  in  memory  and  moves  the 
display  cursor  to  the  beginning  of  the  next  line. 
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fillitll  Module. 


The  Finish  Module  performs  the  necessary  storing, 
writing  and  other  file  handling  opera't-ions  required  when  the 
data  for  a particular  information  category  has  been  entered. 
If  available  memory  has  been  consumed,  the  memory  image  of 
the  edited  data  is  written  to  the  diskette  and  memory 
pointers  are  reset  to  allow  further  input.  Upon 
encountering  an  end  of  code,  end  of  error  command  or  end  of 
prcmpt  delimiter,  the  contents  of  the  old  buffer  are 
transferred  to  the  appropriate  record  in  memory.  When  an 
end  of  file  delimiter  is  encountered,  the  necessary  storage 
and  file  closing  operations  are  accomplished. 


a.  Cata  Transfer. 


(1)  WRITE  - Writes  a] I records  in  memory  out  to 
the  diskette,  makes  the  appropriate  directory  entry,  checks 
if  the  records  were  properly  written  to  the  diskette,  resets 
the  counter  for  the  number  of  remaining  records  and  resets 
the  storage  pointer  to  the  appropriate  memory  address. 

(2)  I NCSSTORE  - Increments  the  storage  pointer 
and  writes  records  in  memory  to  the  diskette  if  a memory 
overflow  is  possible. 

(3)  a07E$3T0RE  - Stores  input  information  into 
the  appropriate  record  in  memory. 
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b.  End  of  Segnent. 


(V  FILL jCODE^ZSRO  - Fills  the  remainder  of  the 
record  currertly  in  use  with  binary  zeros. 

(2)  EMDSDL  - When  an  end  of  code  delimiter  (|) 
is  encountered  in  input,  the  next  available  record  xs 
allocated  by  a call  to  GOSNEXTSasc,  the  directory  entry  is 
made,  the  input  information  is  stored  in  the  record,  the 
storage  pointer  is  incremented  and  the  end  of  code  delimiter 
is  appended  to  the  input  information.  The  remainder  of  the 
record  is  filled  with  binary  zeros.  The  prompt  message  to 
input  error  commands  is  displayed. 

(3)  END3REC  - When  an  end  of  prompt  delimiter 
(+)  is  encountered,  the  input  prompt  information  is  stored 
in  the  record  in  use,  the  storage  pointer  is  incremented, 
the  end  of  prompt  character  is  written  into  the  record  and 
the  prompt  message  for  additional  code  information  is 
displayed. 


(tt)  EHDSERR  - When  an  end  of  error  command 
delimiter  (-)  is  encountered,  the  error  commands  are  stored 
in  the  record  allocated,  the  storage  pointer  is  incremented, 
the  end  cf  error  command  character  is  written  into  the 
record  and  the  prompt  message  for  prompting  information  is 
displayed. 


(5)  EHP$F  - Called  when  the  end  of  file 
character  (bach  slant)  is  entered.  Any  input  information  is 
stored  in  the  record  in  use  followed  by  the  end  of  file 
delimiter.  The  storage  pointer  is  incremented,  the  records 
in  memory  are  written  to  the  diskette,  the  record  nap 
pointer  is  incremented  and  the  end  of  code  character  U)  is 
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placed  following  the  last  entry  in  the  record  nap. 
extent  and  record  number  of  the  next  record  to  use 
stored  and  the  DAT  file  is  closed. 


The 

are 


V. 


RECOWMEMDATIOMS 


The  goal  of  this  thesis  was  to  present  a method  by  which 
computer  assistance  in  report  generation  could  be  achieved. 
The  project  development  was  implemented  using  hardware  and 
software  assets  at  the  Naval  Postgraduate  School.  While 
that  eguipment  was  suitable,  small  computers  supporting 
commercially-available  text  processing  systems  are  now 
available.  It  is  envisioned  that  virtually  any  general 
purpose  microcomputer  could  form  the  nucleus  for  the 
implementation  of  the  Report  Originating  System  in  the 
fleet.  This  chapter  discusses  some  of  the  known  limitations 
of  the  Intellec-8  cased  Report  Originating  System. 


A.  SINGLE  LINE  INSERTIONS. 

The  editing  facilities  of  the  ROS  program  require 
separate  insertion  and  filing  of  each  additional  line  of 
data.  The  line  editor  would  be  more  convenient  for 
preparation  of  lengthy  textual  material  such  as  instructions 
and  directives  if  it  provided  the  capability  to  insert 
multiple  lines  of  text  prior  to  the  filing  operation.  Such 
a feature  would  prove  particularly  beneficial  in  the 
revision  of  lengthy  textual  material. 
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B.  OPERATING  SYSTEM  AND  PROGRAMMING  LANGOAGE. 


When  this  project  was  started,  the  PL/M  prograaning 
language  and  the  CP/M  operating  system  were  one  of  the  more 
powerful  and  higher  level  combinations  available  for  the 
0080  family  of  microcomputers.  Since  then,  0080  based 
systems  have  become  more  widely  used  for  general  purpose 
computing  and  have  influenced  the  development  of  more 
advanced  software  support  for  this  architecture.  One  aspect 
in  the  evolution  of  these  microcomputers  has  been  the 
implementation  of  self  hosted  compilers  for  a variety  of 
high  level  programming  languages.  A similar  evolutionary 
process  has  occurred  in  the  area  of  microcomputer  operating 
systems.  State  of  the  art  commercial  software  could  enhance 
the  Report  Originating  System  in  two  ways.  The  use  of  a 
higher  level  language  (compared  to  PL/M)  could  broaden  the 
capabilities  of  the  system  by  improving  file  handling  and 
data  manipulation.  Additionally,  implementation  of  a more 
popular  language  would  simplify  software  maintenance  efforts 
because  it  would  not  be  necessary  to  train  system 
development  programmers  in  a new  language.  One  candidate 
for  a programming  language  would  be  the  Extended  Basic 
language.  This  language  provides  a good  balance  of 
programming  potential  and  ease  of  use.  Whatever  choice  is 
made,  it  is  recommended  that  the  compiler  be  hosted  in  the 
microcomputer  to  facilitate  development  and  maintenance. 


C.  EXPANSION  OF  THE  CREATE  PROGRAM  EDITOR. 


The  CREATE  program  currently  does  not  provide  the  data 
structures  capable  of  supporting  the  editing  facilities  of 
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the  ROS  program.  As  a result,  the  basic  line  editor 
commands  in  the  CREATE  program  are  limited.  Incorporation 
of  expanded  data  structures  in  CREATE  could  support  a larger 
set  of  basic  line  editor  commands  equivalent  to  those  found 
in  the  ROS  program.  The  addition  of  such  structures  would 
require  major  revision  of  the  CREATE  program;  it  may  be 
determined  that  such  revision  is  unfeasible. 


D.  IHPLEHEliTATION  IN  ANOTHER  MICROCOHPOTEH  ARCHITECTDRE. 


Although  the  8080  family  of  microcomputers  enjoys  great 
popularity  in  the  commercial  world,  this  architecture  is  not 
common  in  the  military.  Implementation  of  the  Report 
Originating  System  in  another  microcomputer  architecture  may 
enhance  the  system's  appeal  in  the  Navy.  The  system  could 
be  recoded  to  be  implemented  in  existing  military  computers 
such  as  the  AN/OYK-7,  AN/DYK-14  and  AN/OYK-20.  New  computer 
architectures  offered  by  Digital  Equipment  Corporation 
(LSI-11)  and  by  Texas  Instruments  (TI-9900)  should  be 
investigated  as  possible  candidates.  Another  area  of 
available  hardware  that  should  be  investigated  is  the 
blossoming  arena  of  word  processing  equipment  [10].  This 
has  become  a very  dynamic  and  competitive  area  in  data 
processing  development  with  new  products  being  announced 
constantly.  One  of  these  off-the-shelf  systems  could 
accommodate  the  Report  Originating  System.  One  projection 
is  that  by  1986  word  processing  system  hardware  will  be 
available  for  S150,  plus  the  cost  of  a typewriter  [1]. 
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z. 


ERROR  ANALYSIS  EXPANSION. 


Additional  error  checking  capabilities  could  be  easily 

developed  and  incorporated  in  the  system.  The  ability  to 

check  special  number  and  character  sequences  such  as 

Date-Time  Groups,  Social  Security  Account  Numbers  and 

National  Stock  Numbers  would  open  the  areas  of  application 

of  the  system.  For  example,  Date-Time  Groups  could  be 

checked  to  see  if  the  date  is  compatible  with  the  month  and 

that  the  time  is  a valid  24-hour  clock  time.  Social  Security 

Account  Numbers  could  be  checked  for  the  appropriate  number 

of  digits  irrespective  of  whether  hyphens  are  incorporated 

in  the  fornat.  A pattern  for  valid  National  Stock  Numbers 

could  assist  in  error  detection  in  supply  documents.  The 

* 

error  analysis  capability  could  be  broadened  to  allow  the 
user  of  the  CREATE  program  to  define  his  own  error  analysis 
commands  for  special  applications.  Statistical  information 
concerning  the  most  prevalent  types  of  errors  in  formatted 
reports  should  be  gathered  as  a guide  to  future  development 
of  standard  error  analysis. 

F.  TESTING  AND  DEBUGGING. 


Before  the  Report  Originating  System  could  be 
implemented  outside  a laboratory  environment,  extensive 
testing  and  debugging  efforts  must  be  accomplished.  It  is 
inevitable  that  programming  inconsistencies  exist  hidden  in 
BOS  and  CREATE.  These  need  to  be  detected  by  an  extensive 
testing  program. 
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VI. 


CONCLUSIONS 


Although  this  study  has  focused  on  a single  application 
of  coaputer  assistance  to  the  shipboard  manager,  many 
management  areas  besides  report  generation  could  benefit 
from  data  processing  assistance.  In  the  area  of  training,  a 
general  purpose  microcomputer  system  could  be  used  to 
uniformly  administer  training  courses  and  to  automate  the 
maintenance  of  individual  training  records.  Such  a system 
could  also  enhance  record  keeping  functions  in  personnel 
administration  and  supply  accounting.  Computation  of 
navigational  equations  to  determine  ship's  position  could  be 
performed  quickly  and  accurately  by  a general  purpose 
computer.  All  of  these  potential  applications  point  to  the 
desirability  for  a non-tactical  computer  system  aboard  naval 
vessels. 

There  has  been  a trend  in  the  military  to  automate 
report  handling  at  the  higher  levels  of  command.  Format 
free  reports  are  being  replaced  by  highly  formatted,  machine 
processable  reports.  To  be  useful,  these  reports  must  be 
checked  for  inconsistencies  in  content  and  form  before  being 
processed  by  the  recipient.  The  optimal  time  for  such  error 
checking  is  before  the  report  is  released  by  the  originator. 
The  Report  Originating  System  provides  the  framework  that 
can  reduce  errors  during  report  generation  by  incorporating 
precise  prompting  questions  and  can  perform  error  analysis 
to  identify  format  irregularities.  This  latter  capability 
may  be  readily  expanded  to  include  a variety  of  analyses. 

During  the  development  of  the  Report  Originating  System, 
an  attempt  was  made  to  make  the  system  easy  to  use  by  an 
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I"  operator  with  no  prior  computer  experience.  Simplicity  of 

operation  is  the  keystone  to  such  a system's  success;  the 
most  ingenious  data  processing  system  will  fail  if  it  is  not 
easier  to  use  than  the  current  manual  method.  Development 
of  any  such  system  must  adhere  to  this  basic  tenet. 

The  rapid  technological  progress  in  the  area  of 
microcomputers  and  the  commensurate  reduction  in 
microcomputer  hardware  system  cost  has  made  Navy-wide 
implementation  of  such  a system  a realizable  goal.  Since 
the  preponderance  cf  computer  hardware  in  the  fleet  is 
dedicated  to  specialized  tactical  systems  and  since  the 
hardware  associated  with  the  Report  Originating  System  is 
modest  in  cost,  it  is  desirable  that  the  system,  if 
implemented,  be  based  on  a standard  microcomputer 
architecture  which  could  support  a variety  cf  other 
I computational  and  information  management  systems.  The  use 

of  standard  architecture  and  of  an  easy  to  use  high  level 
programming  language  will  facilitate  program  development  and 
system  software  maintenance. 

In  summary,  the  Report  Originating  System  advocated  by 
this  thesis  demonstrates  that  computer  assistance  in 
information  processing  and  management  is  readily  supported 
by  currently  available  computer  systems  and  can  be 
implemented  at  a modest  cost.  Such  a tool  could  reduce  the 
administrative  burdens  of  the  shipboard  manager  and  free  him 
to  develop  his  nautical  and  naval  warfare  specialty  skills. 
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APPENDIX  A 
ROS  PROGRAM 


User's  Manual 


1.  Introduction. 

The  primary  tool  used  by  the  message  originator  in  the 
fleet  to  prepare  the  required  report  will  be  the  ROS 
program.  It  is  through  the  ROS  program  that  the  user 
interfaces  with  the  data  stored  within  the  microcomputer 
system  and  the  ROS  program  provides  assistance  to  the  user 
in  the  actual  generation  of  the  report  text.  In  order  to 
generate  reports,  there  is  little  need  for  the  user  to 
understand  the  details  of  the  program  logic;  instead  he 
merely  need  know  how  to  use  this  basic  tool  to  format  the 
desired  report.  Therefore,  it  is  the  purpose  of  this  manual 
to  provide  the  ultimate  user  with  a step  by  step  process  by 
which  he  can  use  the  ROS  program.  This  manual  describes  the 
process  implemented  on  the  Intellec-8  microcomputer  system. 

2.  Setting  Up  the  System. 

To  use  the  BOS  program  to  generate  a report,  the  user 
must  have  available  a DAT  file  for  that  particular  report. 
Under  normal  circumstances,  the  authority  requiring  a 
specific  report  will  provide  all  users  with  a diskette 
containing  the  necessary  DAT  file.  It  is  incumbent  on  this 
authority  to  maintain  the  distributed  DAT  files  so  that 
current  revisions  to  reporting  procedures  will  always  be 
available  to  the  general  user. 
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The  fleet  user  will  select  the  appropriate  DAT  file, 
insert  the  diskette  into  the  drive  nechanisn  and  initiate 
the  system  by  typing 

ROS  <fil€name>  <cr> 

where  <filename>  is  the  name  of  the  report  to  be  generated, 
such  as  FORSTAT  or  MOVREP,  and  <cr>  denotes  a carriage 
return.  It  is  important  that  the  <filename>  be  exactly  the 
same  as  the  name  given  to  the  DAT  file  by  the  originator. 
The  system  will  now  be  ready  to  execute  the  report 
generation. 

3.  Execution. 

After  calling  the  desired  DAT  file  by  means  of  the 
above  convention,  the  appropriate  file  will  be  opened,  if  in 
fact  it  exists  on  that  diskette.  If  a file  by  the  name  of 
<filename>  dees  not  exist  on  that  diskette,  then  an  error 
message,  ”DAT  PILE  NOT  PRESENT”,  will  be  displayed.  This 
indicates  to  the  user  that  either  the  wrong  diskette  is  in 
use  or  that  no  DAT  file  for  that  specific  report  name  exists 
and  that  the  program  CREATE  should  be  used  to  create  a DAT 
file.  Creation  of  a DAT  file  is  explained  in  the  CREATE 
program  user's  manual.  Appendix  C. 

When  the  appropriate  DAT  file  has  been  opened,  the 
system  will  respond  by  displaying  the  data  labels  contained 
within  the  file.  Data  labels  are  names  given  to  a section 
of  a report  which  allow  the  user  to  directly  access  that 
section.  A data  label  usually  represents  an  information 
element  of  the  required  report.  For  example,  in  a 
NAVFORSTAT,  there  are  many  data  labels  such  as  CONOR  which 
represents  icformatlon  concerning  the  commanding  officer  and 
PERSN  which  represents  information  concerning  personnel. 
The  user  will  respond  to  the  display  of  the  data  label  by 
typing  either  a ”T”  or  ”M"  under  the  label;  ”Y”  indicates 
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the  user  wishes  to  aodify  the  inforaation  under  that  label, 
”N"  indicates  that  data  label  should  not  be  modified.  Mext 
the  systea  will  query  which  data  labels  are  to  be  included 
in  the  report  generated.  Again  the  user  will  type  a "Y”  or 
"N"  under  the  data  label  to  indicate  inclusion  or  exclusion, 
respectively.  This  feature  is  added  since  many  formatted 
reports  require  inclusion  of  only  changed  data  elements  for 
most  reports  but  require  periodic  submission  of  all  data 
elements  to  verify  the  data  base. 

The  next  systea  query  will  concern  whether  prompting  is 
desired.  An  affiraitive  response  (Y)  by  the  user  will  cause 
entry  into  the  fully  instructional  mode  where  the  user  is 


prompted 

by  questions. 

the  answers 

to  which 

will 

be 

the 

required 

report  information. 

A negative 

response 

(N) 

bypasses 

the  prompting 

questions 

and  allows 

the 

user 

to 

j directly  edit  the  information  associated  with  the  data 

label.  This  optional  prompting  provides  instructional 
assistance  to  the  unfamiliar  user  but  does  not  encumber  the 
experienced  user  with  the  slowness  of  the  prompted  mode. 

After  these  preparatory  questions  have  been  answered, 
the  BOS  program  is  ready  to  formulate  the  desired  report. 
As  a basis,  the  program  uses  the  information  generated  and 
modified  in  previous  reports;  this  information  is  updated  by 
the  operator  by  using  the  facilities  of  either  the  basic 

line  editor  or  the  extended  line  editor,  both  explained  in 

the  Line  Editor  User's  Manual,  Appendix  B.  Both  of  the 

editors  have  the  capability  to  perform  the  necessary  data 
modification  and  the  final  choice  of  line  editors  is 
fundamentally  operator  preference. 

! 

If  the  user  has  opted  for  the  instructional  mode  of 
operation,  specific  questions  concerning  each  of  the  fields 
for  the  selected  data  elements  will  be  written  on  the 

I console's  CRT  screen.  It  is  intended  that  the  command 

I 

, \ 
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authority  requiring  the  report  (the  originator  of  the  DAT 
file)  sake  individual  questions  unambiguous  so  the  operator 
can  respond  with  the  correct  answer  in  the  required  format. 
If  form  as  well  as  content  is  critically  important  for  the 
report's  usefulness,  then  it  must  be  made  perfectly  obvious 
that  the  response  to  a particular  question  must,  for 
example,  be  four  digits  while  the  response  to  another 
question  may  require  a two  letter  input.  Careful  wording  of 
the  prompting  questions  will  allow  the  operator  to  respond 
rapidly  and  accurately. 

While  the  operator  eaters  the  information  sought,  the 
ROS  program  analyses  the  entered  data  for  errors.  This 
analysis  may  be  as  simple  as  checking  whether  the  response 
was  alphabetic  or  numeric  or  may  be  so  complex  as  to  check 
for  the  reasonability  of  the  answer.  For  example,  it  may 
suffice  to  check  that  the  answer  is  "10"  rather  than  "ten"; 
on  the  other  hand,  the  operator  may  need  to  be  cautioned 
after  entering  information  that  shows  the  number  of  assigned 
personnel  increased  500  percent  since  the  last  report.  If 
the  error  analysis  indicates  an  error  has  occurred,  a 
diagnostic  message  will  be  displayed  to  the  operator  who 
will  then  have  the  opportunity  to  make  an  appropriate 
correction.  In  the  case  of  a question  of  reasonability,  the 
second  response  will  be  considered  authentic.  When  working 
in  the  prompted  mode  with  the  selected  data  element,  most  of 
the  line  editor's  commands  are  implied.  After  receiving  a 
response  from  the  operator,  the  system  will  make  the 
appropriate  modifications  to  the  data  after  the  responses 
have  been  received  for  all  queries  concerning  that 
particular  data  element.  The  newly  submitted  information  is 
retained  in  a buffer  until  a command  is  given  to  update  the 
old  data.  The  operation  of  this  process  is  explained  more 
fully  in  the  Line  Editor  User's  Manual.  When  the 
information  regarding  a selected  data  element  has  been 
properly  updated,  the  editing  process  will  continue  with  the 
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next  selected  data  element.  The  sequence  of  instructional 
questions,  response,  error  analysis  and  information  updating 
will  continue  for  each  data  element  selected.  After  all  of 
these  data  elements  have  been  processed,  the  DAT  file  will 
be  updated  to  reflect  the  current  information  and  a message 
file,  which  can  be  referenced  by  <filename>. MSG , will  be 
created  on  the  diskette.  The  message  file  will  contain  all 
the  required  information  in  the  appropriate  format  for 
submission  to  the  requesting  organization. 

The  alternate  method  of  ROS  program  execution  is  the 
non-instructional  mode.  This  mode  is  intended  for  the 
experienced  operator  who  understands  the  reporting 
requirements  and  who  desires  to  rapidly  edit  the  report 
information.  The  non-instructional  mode  is  also  prefaced  by 
the  system  queries  about  data  elements.  During  the  editing 
process,  the  existing  information  for  each  data  element  will 
be  sequentially  displayed  and  directly  edited  with  the  line 
editor's  facilities.  The  significant  difference  between 
this  mode  and  the  formerly  described  mode  is  the  omission  of 
prompting  questions.  This  mode  also  provides  the  error 
analysis  feature  provided  by  the  fully  prompted  mode.  If 
errors  are  made,  the  same  diagnostic  messages  will  be 
displayed  to  the  operator.  It  is  assumed  that  the  operator 
is  intimately  familiar  with  the  proper  format.  In  the 
non-instructicnal  mode  the  editing  process  is  explicit  and 
not  implied.  Regardless  of  which  line  editor  is  in  use,  the 
operator  must  issue  the  necessary  editing  commands  to  modify 
and  file  the  desired  data  and  to  quit  the  edit  mode.  After 
changes  have  been  filed  for  a particular  data  element,  the 
next  selected  element  nay  be  accessed  by  using  the  "NEXT" 
command  (SNX) . Again,  input  information  will  undergo  the 
same  degree  of  error  analysis.  As  data  element  responses 
are  filed,  the  next  selected  data  element  will  be  processed. 
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Upon  coapletion  of  the  updating  process,  the  DAT  file  will 
reflect  the  latest  changes  of  inforaation  and  a message  file 
will  have  been  created. 

A report  origination  session  is  shown  below.  Both  the 
fully  instructional  and  non-instructional  modes  are  depicted 
to  contrast  their  use.  Only  the  basic  line  editor's 
facilities  have  been  erercised  in  each  case.  Explanation  of 
the  action  of  the  basic  line  editor's  commands  may  be  found 
in  the  Line  Editor  User's  Manual. 

4.  Sample  Report  Originating  Session. 

The  following  sessions  represent  the  origination  of  a 
typical  Naval  Force  Status  (NAVFORSTAT)  report.  The  first 
example  shows  the  updating  process  using  the  instructional 
node  of  operation.  The  second  example  implements  the  sane 
changes  but  uses  the  non-instructional  node  available  in  the 
ROS  program.  In  both  examples,  the  basic  line  editor 
facility  is  used.  Lines  displayed  by  the  ROS  program  are 
bracketed  by  asterisks  (♦)  ; lines  input  by  the  operator  are 
ended  with  a carriage  return  (<cr>) . Amplifying  comments 
are  parenthesized  and  follow  the  line  they  pertain  to. 


A.  Instructional  Mode. 

♦A>*  (System  is  ready) 

ROS  FORSTAT  <cr>  (FOBSTAT  is  name  of  DAT  file) 


♦SELECT 

DATA  ELEMENTS 

TOD 

DESIRE  TO  WORK 

HITH^ 

♦HEADER 

lOENT 

TSKCD 

OPCON 

ADCON  * 

r 

r 

T 

N 

N<cr> 

♦HOGEO 

CCMDR 

ACTIV 

PERSN  NE 

* 
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M 


Y 


Y<cr> 


(The  syste*  would  continue  to  display  the  remainder  of  the 
elements  in  the  system,  expecting  "Y”  or  "N”  responses  for 
each. ) 


♦SELECT 

DATA  LABELS 

TO  BE 

INCLUDED  IN 

THE  REPORT* 

♦HEADER 

IDENT 

TSKCD 

OPCON 

ADCON  ♦ 

Y 

Y 

Y 

N 

N <cr> 

♦HOGEO 

CCMDR 

ACTIV 

PBRSN 

NE  ♦ 

N 

N 

Y 

Y<cr> 

(Again  the  system  would  continue  to  display  the  remaining 
elements) 

♦DO  YOU  WISH  TO  BE  PROMPTED?* 

Y <cr> 

*FH  OSS  NEVEFSAIL*  (First  line  of  HEADER) 

&NX<cr>  ( Go  to  next  line.) 

(Refer  to  Line  Editor  User's  Manual  for  command  meanings) 

♦TO  CINCPACFLT  MAKALAPA  HI* 

6MX<cr> 

♦CCHNAVSURFPIC  SAN  DIEGO  CA* 

&MX<cr> 

♦CTO  77.7.7* 

SIN  CTO  76.1.2<cr>  (Add  another  addressee) 

♦<CT0  76.1.2>* 

SFI<cr>  (Files  the  insertion) 

♦CTO  76.1.2* 
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&QO<cr>  (Finished  with  changes  to  HEADEB) 
♦HAVFOHSTAT  012  AS  OP  012345Z  MAT  11* 

(First  line  of  IDENT  section) 

6CH  /012/014/<crX 

♦EBHOR;  NOMBER  IS  NOT  IN  SEQOENCE.  RE-ENTER  CHANGE* 
6CH  /012/013/  <cr>  (Increnent  report  number) 
*<NATFORSTAT  013  AS  OF  012345Z  MAY  77>* 

SCH  /012345/100200/<cr>  (Now  change  the  DTG) 
*<NAVFORSTAT  013  AS  OF  100200Z  MAY  77>* 

6FI  <cr>  (Pile  the  change) 

♦NAVFORSTAT  013  AS  OF  100200Z  MAY  77* 

6Q0<cr>  (Finished  with  changes  to  IDENT) 

*HHO  IS  YOUR  TASK  ORGANIZATION  CCMMANDER?* 

*BESPOND  IN  THE  FORM  CTA  NNN.N.N* 

CTO  076.1.2<cr>  (TSKCD  data  has  been  changed) 

*NHAT  IS  YOOR  CURRENT  EMPLOYMENT?* 

*HESPOND  ilTH  2 LETTER  CODE* 

OP<cr>  (ACTIT  data  has  been  changed) 

*NATY  ENLISTED  PERSONN EL-RESPOND  WITH  4 DIGITS* 
*STRDCTORED  STRENGTH?* 

0240<cr> 

*AOTHORIZEO  STRENGTH?* 

022Kcr> 

*ASSI6MED  STRENGTH?* 
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0198<cr> 

<Thi.3  is  the  last  of  the  selected  data  eleaents) 

*A>* 

(The  above  changes  have  been  Bade,  a nessage  file  has  been 
created  and  the  system  is  ready.) 

B.  Mon-instructional  Mode. 

*A>*  (System  is  ready) 

BOS  FOBSTAT  <cr>  (PORSTAT  is  name  of  DAT  file) 

♦SELECT  DATA  ELEMENTS  TOO  DESIRE  TO  WORK  WITH* 

♦HEADER  IDENT  TSKCD  OPCON  ADCON  ♦ 

T TIN  N<cr> 

♦HOGEO  CCMDR  ACTIV  PERSN  ME  ♦ 

M N Y T<cr> 

♦SELECT  DATA  LABELS  TO  BE  INCLUDED  IN  THE  REPORT* 

♦HEADER  IDENT  TSKCD  OPCON  ADCON  ♦ 

Y Y Y N M <cr> 

♦HOGEO  COMER  ACTIT  PERSN  NE  ♦ 

M N Y Y<cr> 

(Again  the  systea  would  continue  to  display  the  remaining 
eleaents) 

♦DO  TOO  NISH  TO  BE  PROMPTED?* 

N <cr> 

♦PM  OSS  NETEBSAIL*  (First  line  of  HEADER) 

SIX<cr> 
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♦TO  CINCPACFLT  MAKALAPA  HI* 


6NX<cr> 

♦CCBNAVSORFPAC  SAN  DIEGO  CA* 

6NX<cr> 

♦CTO  77.7.7* 

GIN  CTO  76.1.2<cr>  (Add  this  addresse) 

♦<CTO  76.1.2>* 

GPKcr>  (File  the  insertion) 

♦CTO  76.  1.2* 

GQO<cr>  (Finished  with  changes  to  HEADER) 

♦NAVFORSTAT  012  AS  OF  012345Z  MAT  77* 

(First  line  of  IDENT  section) 

GCH  /012/013/  <cr>  (Increment  the  report  number) 
♦<NAVFORSTAT  013  AS  OF  012345Z  MAY  77>* 

GCH  /012345/100200/<cr>  (Change  the  DTG) 

♦<NAVFORSTAT  013  AS  OF  100200Z  MAT  77>* 

GFI  <cr>  (File  the  change) 

♦NAVFORSTAT  013  AS  OP  100200Z  MAI  11* 

GQ0<cr>  (Finished  with  changes  to  IDENT) 

GMX<cr>  (Rant  next  data  element) 

♦TSKCD  CTO  C77.7.7*  (First  line  of  next  data  element) 
GCH  /077.7.7/076.1 .2/<cr> 

♦<TSKCD  076.1.2>* 

GFKcr> 
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♦TSKCD  CTO  076.1  .2* 

SIS  TSKCD  CTO  077. 7 .7/DELETE<cr> 

♦<TSKCD  CTO  077.7. 7/DELETE>* 

SPI<cr> 

♦TSKCD  CTO  077.7.7/DELETE* 

6NX<cr> 

*ACTI?  IP* 

6CH  /IP/OP/<cr> 

*<ACTI7  OP>* 

SPKcr> 

*ACTIV  OP* 

6MX<cr> 

*PEHSN  NE/0240/0221/0195* 

6CH  /0195/0198/<cr> 

*<PERSN  NE/0240/0221/0198>* 

6PKcr> 

*PE8S»  NE/0240/0221/0198* 

6Q0<cr> 

(Editing  session  is  terainated  and  appropriate  files 
created) 

*A>*  (Systea  is  ready  for  new  task) 


like 


this 


for 


The  resulting  message  file  would 
both  examples: 

FH  OSS  NEVEBSAIL 

TO  CINCPACPLT  MAKALAPA  HI 

COHHAVSDRFPAC  SAN  DIEGO  CA 

CTO  77.7.7 

CTO  76.1.2 

BT 

NAVPORSTAT  013  AS  OF  100200Z  MAY  77 
FP  1234  NEVERSAIL/N09999 
PART  I 

TSKCD  CTO  076. 1 .2 
TSKCD  CTO  077.7.7/DELETE 
ACTIV  OP 

PBHSM  NE/0240/0221/0198 
BT 


look 
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SOHHARY  FOR  ROS  OSERS 


1.  Turn  on  power  to  the  microcomputer,  diskette  drive  and 
terminal.  (Diskette  outi!) 

2.  Select  proper  diskette  and  insert  into  "A”  slot. 

3.  Load  the  computer  program  by  depressing  the  ''RESET” 
switch.  An  ''A>”  should  appear  on  the  terminal  screen. 

4.  Confirm  that  the  appropriate  DAT  file  is  present  on  the 
diskette  in  use  by  typing  "DIR  <f ilename> . DAT  <cr>”.  If  so, 
”<f ilename>. EAT"  will  appear  on  the  screen.  If  not,  repeat 
Steps  2 through  4 with  other  available  diskettes  until  the 
DAT  file  is  found.  If  the  DAT  file  does  not  exist,  the 
CREATE  program  may  be  used  to  produce  a DAT  file. 

5.  Remove  previous  report's  MSG  file  by  typing  "ERA 
<f ilename>.HSG  <cr>”.  Alternatively,  if  a back-up  file  is 
desired,  type  "ERA  <f il ename>. BAR  <cr>"  to  erase  the 
previous  back-up  file  followed  by  "REN 
<filename>.BAK=<filename>. MSG  <cr>"  to  rename  the  MSG  file 
as  a BAK  file. 

6.  Execute  RCS  program  by  typing  "ROS  <filename>  <cr>". 
Answer  system  queries  and  select  data  elements.  Make 
appropriate  modifications  to  data  elements  as  they  appear 
using  the  line  editor  facilities. 
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7.  Hhen  processing  of  the  selected  data  elements  is 
complete,  ”A>”  will  appear  on  the  screen. 

8.  The  HSG  file  may  be  viewed  by  typing  "TYPE  <f ilename> . MSG 
<cr>" . 

9.  If  additional  corrections  must  be  made,  repeat  Steps  5 
through  8. 
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APPENDIX  B 
LINE  EDITOR 


I 


\ 


User's  Manual 


1.  Introduction. 

ROS  and  CREATE  users  may  create  and  change  the  contents 
of  the  ROS  and  CREATE  files  by  using  the  features  of  the 
"line  editor". 

The  LEDIT  procedure  functions  with  two  lines  of 
information,  the  "old  line"  containing  the  data  as  it  exists 
in  the  file  and  the  "new  line"  acting  as  a recepticle  for 
additional  or  modified  data.  Data  may  be  manipulated 
between  the  two  lines  by  using  a series  of  basic  editing 
commands  which  are  described  below.  In  order  to  provide  an 
editing  capability  which  would  prove  useable  by  an  operator 
of  limited  experience,  the  basic  line  editor's  commands  are 
succinct  and  limited  in  number.  It  is  hoped  that  this 
philosophy  will  allow  the  ultimate  user  in  the  fleet  to 
rapidly  master  the  basic  line  editor's  capabilities  and  to 
use  the  basic  line  editor  without  reference  to  a command 
list  or  user's  manual.  An  expanded  line  editor  is  also 
available  within  the  LEDIT  framework  which  allows  greater 
control  over  the  line  editing  process.  This  expanded  editor 
is  intended  for  the  more  experienced  user  or  programmer  who 
requires  this  greater  capability.  Either  the  basic  or  the 
expanded  line  editor  may  be  invoked  by  the  user  without  any 
change  to  the  ROS  or  CREATE  programs.  Discrimination 
between  the  two  editors  is  by  means  of  command  format;  each 
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$ editor  has  its  distinct  command  set.  These  commands  are 

1 

structured  in  such  a way  that  there  should  be  no  possibility 
of  accidentally  invoking  a line  editor  command. 

The  line  editor  uses  a series  of  commands,  composed  of 
an  ampersand  (&)  followed  by  two  characters,  and  possibly  by 
amplifying  information  in  an  "argument  list".  The  end  of 
the  line  editor  command  sequence  is  denoted  by  a carriage 
return.  The  commands  operate  on  the  "old  line"  contents 
which  are  the  last  line  displayed  at  the  console.  The 
resultant  changes  are  held  in  the  "new  line"  area  until  an 
explicit  command  is  given  to  replace  the  "old  line"  contents 
with  the  "new  line"  contents.  This  requirement  should 
prevent  inadvertent  modification  of  existing  data.  The 
following  section  enumerates  the  commands  available  to  the 
user  and  defines  the  action  they  cause. 

I 

2.  Basic  Line  Editor  Commands. 

The  following  commands  are  used  with  the  basic  line 
editor; 

COKMAND  PABAMETEES  DESCRIPTION 

&PH  <numeral>  "PRINT" 

Displays  the  number  of  lines 
I indicated  by  numeral.  After 

displaying  lines,  the  contents 
of  the  "old  line"  are  the  last 
line  displayed.  If  no  para- 
meter is  present,  one  line 
will  be  displayed. 
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COHMAND 
&NX 

l 


SOP 


t 

&CH 


i 


PASAWETEBS  DESCRIPTION 

<nuaeral>  ''NEXT" 

Displays  the  ith  line  follow- 
ing the  current  line  where  i 
is  equal  to  the  numeral 
indicated.  Only  one  line  will 
be  displayed  which  will  be  th.e 
contents  of  the  ”old  line”.  If 
no  numeral  is  specified,  the 
next  line  will  be  displayed. 

<numeral>  "OP” 

Displays  the  ith  line  before 
the  current  line  where  i is 
equal  to  the  numeral  indicated. 
Only  one  line  will  be  displayed 
which  will  be  the  contents  of 
the  "old  line”.  If  no  numeral 
is  specified,  the  previous 
line  will  be  displayed. 

/<S^>/<S2>/  ”CHANGE” 

Copies  all  characters  from  ”old 
line”  to  "new  line"  until  the 
first  occurrence  of  string  1; 
string  2 is  substituted  in  the 
"new  line"  in  place  of  string  1 
and  the  remaining  characters  of 
the  "old  line"  are  copied  into 
the  "new  line".  Contents  of  the 
"new  line”  are  displayed  between 
broken  brackets  (<>) . String  2 
may  be  a null  string  indicated 
by  consecutive  virgules  (//) . 
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COKHAND  PABAHETERS 


DESCRIPTION 


&DE  HONE 


&IN  <string> 


&FI  NONE 

&QD  NONE 

&PO  NONE 

&NP  NONE 


'•DELETE” 

Deletes  the  contents  of  the 
"old  line”. 

"INSERT” 

Inserts  the  string  indicated 
after  the  current  line  but 
before  the  next  line.  Insert 
mode  is  teriinated  by  a carri- 
age return.  Added  lines  are 
displayed  between  broken 
brackets  (<>)  . 

"FILE” 

Replaces  the  contents  of  "old 
line”  with  the  contents  of  "new 
line"  and  clears  "new  line". 

"QUIT" 

Terainates  the  edit  session. 
Will  not  incorporate  changes 
unless  a previous  file  comoand 
has  been  given. 

"PROMPT  ON" 

Turns  the  prompt  mode  on. 

"NO  PROMPT" 

Turns  prompt  mode  off. 


3.  Ose  of  Basic  Line  Editor  Commands. 


In  order  for  a command  to  be  recognized  it  is  necessary 
that  the  ampersand  (&)  be  in  the  first  input  character 
position.  The  alphabetical  characters  of  the  ccaaand  must 
immediately  follow  the  ampersand  with  no  spaces  between 
them.  A blank  space  between  the  command  and  any  parameters 
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is  necessary:  a single  carriage  return  denotes  the  end  of  a 
coaaand  and  its  associated  string. 

Hhenever  a coaaand  other  than  those  listed  above  is 
used,  an  error  condition  will  exist  and  the  nessage  "INVALID 
LIKE  EDITOR  CORMAND"  will  be  displayed.  The  LEDIT  procedure 
will  then  await  a corrected  conaand  input  for  a change  or 
for  teraination  of  the  input  session. 

An  exaaple  of  a line  editing  session  is  shown  below  to 
demonstrate  use  of  the  LEDIT  conmands.  For  the  purpose  of 
illustration,  all  lines  displayed  by  the  LEDIT  procedure  are 
bracketed  by  asterisks  (♦)  ; for  user  input  lines,  a carriage 
return  is  shown  as  <cr>. 

In  this  example,  a textual  file  is  used  to  demonstrate 
the  basic  line  editor. 

6PS  5<cr>  (Prints  5 lines  of  the  file) 

♦THIS  PILE  CONTAINS  TEXTUAL  MATERIAL  TO* 

♦DEMONSTRATE  THE  USB  OF  THE  LINS* 

♦EDITOR'S  OPERATION.  THE  OPERATOR  CAN  USE^ 

♦THESE  EDITORS  TO  MODIFY  FILES  ONE^ 

♦LINE  AT  A TIME.  CHANGES  MOST  BE^ 

6NX<cr>  (Prints  the  next  line) 

♦FILED  FOR  EACH  LINE  SEPARATELY  IF  THEY^ 

&0P  3<cr>  (Backs  up  three  lines) 

♦THESE  EDITORS  TO  MODIFY  PILES  ONE^ 

SCH  /ONE/1  SINGLE/<cr> 

♦<THESE  EDITORS  TO  MODIFY  FILES  A SINGLE>^ 
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&FKcr>  (Files  the  change) 


&PP<cr>  (Print  out  current  line) 

♦THESE  EDITORS  T^  MODIFY  FILES  A SINGLE* 

CNX  4<cr>  (Goes  down  four  lines) 

♦ARE  TO  BE  INCLUDED  IN  THE  PINAL  FILE.* 

6CH  /IN/ON/<cr>  (Change  the  first  occurrence  of  "IN”) 
♦<AHE  TO  BE  CNCLUDED  IN  THE  FINAL  PILE.>* 

&NX<cr>  (Gets  ne'it  line,  above  change  not  filed) 

♦THIS  IS  AN  EXTRANEOUS  LINBv 
6DE<cr>  (Eeaove  current  line) 

6FKcr>  (File  the  deletion) 

&UF<cr>  (Assuaes  up  one  line) 

♦ABE  TO  PE  INCLUDED  IN  THE  FINAL  FILE.* 

SIN  THIS  IS  AN  ADDITIONAL  LINE  OP  TEXT<cr> 

♦<THIS  IS  AM  ADDITIONAL  LINE  OF  T*:XT>* 

6FKcr>  (Files  the  insertion) 

6UP<cr> 

♦ABE  TO  BE  INCLUDED  IN  THE  FINAL  FILE.* 

SPR  2<cr> 

♦ARE  TO  BE  INCLUDED  IN  THE  FINAL  FILE.* 

♦THIS  IS  AN  ADDITIONAL  LINE  OF  TEXT* 

SQD<cr>  (Ends  the  edit  session) 

i 

t 


It  should  be  hept  in  mind  that  all  modificaticns  to 
lines  affect  only  the  "new  line"  area  until  a "PILE"  comaand 
(SFI)  is  given;  the  file  coanand  causes  modification  cf  the 
"old  line"  area  which  represents  the  contents  of  the 
resulting  file.  This  convention  provides  the  user  with  the 
ability  to  make  several  temporary  modifications  to  a line 
before  making  these  modifications  to  the  original  file.  By 
reguiring  the  user  to  give  an  explicit  "FILE"  command,  he 
has  the  opportunity  to  see  the  effect  of  the  modification 
before  it  is  entered;  this  will  reduce  erroneous 
modification  of  good  files.  The  operator  must  also  remember 
that  the  "QUIT"  command  (&Q0)  merely  terminates  the  edit 
session  and  that  any  desired  changes  must  be  filed  prior  to 
ending  the  session. 

4.  The  Extended  Line  Editor. 

The  extended  line  editor  uses  the  same  "old"  and  "new 
lines"  as  the  basic  line  editor  but  allows  more  explicit 
control  ever  the  editing  operation  by  invoking  commands  from 
a different  command  set.  Extended  line  editor  commands 
consist  cf  a control  character,  i.e.  simultaneously 
depressing  the  CTRL  key  and  an  alphabetical  character  key  on 
the  console  keyboard.  Since  twenty>four  different  commands 
exist  and  the  distinction  between  similar  commands  is  very 
subtle,  it  is  recommended  that  the  basic  line  editor  be  used 
whenever  possible.  Table  1 summarizes  the  commands 
available  in  the  extended  line  editor  and  describes  the 
action  these  commands  cause.  Because  of  the  cumulative 
complexity  of  these  commands,  an  example  session  is  not 
given.  Potential  users  of  the  extended  line  editor  are 
encouraged  to  practice  using  the  various  commands  on  a dummy 
file  in  order  to  gain  an  understanding  of  the  ramifications 
of  each  command.  Particularly  useful  members  of  this  editor 
are  the  control  characters  i,  B,  D,  E,  F and  W. 
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CCNTBOL 

CHARACTER 


DEFINITION 


A Acts  as  a backspace  and  rub-out  command  on  the 

new  line  only.  (Same  as  the  rub-out  on  many 
terminals)  . 

B Replace  the  "old  line”  with  the  contents  of  the 
"new  line”,  empties  the  "new  line”.  (Equivalent 
to  6FI)  . 

C Copy  one  character  from  the  "old  line”  to  the 
"new  line". 

D Copy  the  remaining  characters  from  the  "old  line" 
to  the  "new  line"  echoing  each  character. 
Equivalent  to  6FI  followed  by  SQO. 

E Toggle  the  insert  mode.  Begin  insert  prints  "<", 
end  insert  prints  ">".  Position  of  the  old 
pointer  does  not  change  during  insert. 

F Delete  the  new  line  without  updating  the  old 
line,  then  "quit". 

G Display  contents  of  the  "old"  and  "new  lines" 
with  control  characters  interpreted. 

H Copy  remaining  characters  from  the  "old  line"  to 
"new  line",  echoing  each.  Halt  for  additional 
edit  ccmmands. 

I Tab.  A tab  stop  is  defined  for  every  four 
characters.  Sane  as  TAB  on  many  terminals. 
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CONTROL 

CHARACTER 

J 

K 

L 

H 

N 

0 

P 

Q 

R 

S 

T 


DEFINITION 

Line  feed.  Editing  of  that  line  is  ceased. 

(not  used) 

Copy  the  feaaining  characters  of  "old  line”  to 
"new  line”  without  echoing.  Wait  for  additional 
ccanands. 

Carriage  return.  Editing  of  that  line  is  ceased. 

Backspace  "old  ‘’me"  and  "new  line”  one  space. 

Copy  characters  from  the  current  position  of  old 
pointer  to  the  next  character  typed. 

Delete  characters  from  the  current  position  of 
cld  pointer  to  the  next  occurrence  of  the  next 
character  typed.  Echoes  a "X”  for  each 
character  deleted.  (The  X's  do  not  become  part 
of  the  new  line) . 

Delete  the  "new  line”  and  reset  the  old  pointer 
to  the  start  of  the  "old  line". 

Display  the  remaining  contents  of  the  "old  line” 
and  all  of  the  "new  line”. 

Delete  one  character  from  the  "old  line”.  Echo  a 
"X"  for  the  deleted  character. 

Only  used  in  CREATE  to  transmit  information  in 
"new  line"  to  storage  in  memory.  Used  when  input 
from  the  console  exceeds  one  CRT  line. 


COHTEOL 

CHAFACTEE  DEFINITION 

0 Copy  characters  from  the  "old  line”  to  the  "new 
line”  up  to  the  next  TAB  character. 

V Escape  character.  Turns  off  any  special  meaning 
of  the  character  which  follows,  enters  the 
character  into  the  "new  line”  and  echoes  the 
character  (e.  g.  "CTRL  V CTRL  M”  will  echo  | M)  . 

H Backspace  up  to  the  beginning  of  the  last  word. 

1 Deletes  characters  from  the  current  position  of 
"old  line"  through  next  character  typed. 

Y Ccpy  the  remaining  characters  from  the  "old  line" 
to  the  "new  line"  echoing  each,  replace  the  old 
buffer  with  the  "new  line".  Wait  for  additional 
ccmmands. 

Z Copy  characters  from  the  "old  line"  to  the  "new 

line"  through  the  next  occurrence  of  the  next 
character  typed. 

NOTE:  The  conti.ol  character  is  entered  by  depressing 

the  CTRL  key  and  then  simultaneously  depressing  the 

desired  function  key. 

TABLE  1 

I 

EXTENDED  LINE  EDITOR  FEATURES 

I . 
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APPENDIX  C 


I 


CREATE  PROGRAM 


Osec's  Manual 


1.  Introduction. 

The  CREATE  program  is  designed  to  allow  the  operator  to 
create  a data  base  for  a specific  report.  The  CREATE 
program  is  the  primary  tool  used  by  the  report  requiring 
authority  to  produce  the  DAT  files  that  are  supplied  to  the 
ultimate  fleet  user.  The  same  CREATE  program  is  also 
available  to  the  shipboard  user  to  produce  DAT  files  for 
reports  that  are  currently  not  supported  by  a distributed 
DAT  file.  This  situation  could  arise  if  a new  reporting 
requirement  is  levied  on  the  fleet  unit  and  the  requiring 
authority  has  not  distributed  the  appropriate  DAT  file  or  if 
some  damage  has  been  inflicted  upon  the  diskette  containing 
the  required  DAT  file.  It  is  the  guiding  intention  of  this 
report  generating  systec  that  the  ultimate  user  be  provided 
with  this  capability  as  an  interim  measure  only;  the 
responsibility  to  provide  and  maintain  DAT  files  properly 
lies  with  the  authority  requiring  the  report. 

A DAT  file  is  comprised  of  three  different  categories 
of  information:  the  report  data  base  as  represented  in  the 
last  submitted  report;  the  prompting  questions  to  which  the 
operator  responds  in  order  to  update  the  report  data  base; 
and  the  error  analysis  directives  which  are  used  by  the  ROS 
program  to  check  input  data.  The  report  data  base  contains 
not  only  the  information  associated  with  each  of  the  data 
labels  but  also  incorporates  the  required  message  header 
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inforaation  and  perhaps  some  trailing  information  that  may 
be  required  for  some  message  reports.  Thus,  using  a 
HIVPORSTAT  for  an  example,  the  data  base  would  contain  the 
addressees  in  the  naval  message  format,  the  subject  and 
Standard  Subject  Identification  Classification  (SSIC)  lines, 
the  PAST  I information,  i.e.  the  data  labels  and  their 
associated  data,  and  PART  II  and  PART  III  narrative 
information  as  required. 

A DAT  file  can  be  subdivided  into  lines  each  of  which 
can  contain  up  to  128  characters  or  symbols  and  it  may 
consist  of  as  many  lines  as  are  necessary  to  represent  the 
coded  information,  the  error  analysis  directives  and  the 
prompting  questions.  Bach  of  these  categories  will  consist 
of  at  least  one  line.  Therefore,  as  a minimum,  a data 
element  will  consume  at  least  three  lines.  If  the  report 
material  is  primarily  textual  and  self-explanatory,  the 
error  analysis  and  prompting  sections  may  be  left  empty. 
This  is  accomplished  by  entering  the  appropriate  record 
delimeter  as  explained  in  Section  3. 

2.  Setting  Op  the  System. 

In  order  to  originate  a DAT  file  for  a required  report, 
the  user  locates  a diskette  with  ample  space  remaining  which 
contains  a copy  of  the  CREATE  program.  Auxiliary  diskettes, 
containing  the  necessary  system  programs  and  the  ROS  and 
CREATE  programs  but  without  specific  DAT  files  will  be 
provided  as  part  of  the  initial  equipment  allowance  or  may 
be  obtained  from  higher  authority.  Each  diskette  contains 
sufficient  space  to  hold  several  DAT  and  NSS  files  for 
different  reports.  Since  the  shipboard  user  is  creating  a 
DAT  file  only  as  an  interim  measure  until  the  appropriate 
diskette  is  provided  by  the  report  requiring  authority,  the 
interim  DAT  file  may  co-occupy  a diskette  with  another  DAT 
file  and  then  may  be  erased  after  the  officially  distributed 
OAT  file  is  received. 
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After  the  diskette  is  inserted  in  the  drive  mechanism, 
the  CREATE  program  is  invoked  by  typing 

CREATE  <filename>  <cr> 

where  <filename>  consists  of  eight  characters,  or  less,  and 
is  the  name  cf  the  DAT  file  to  be  created.  This  <filename> 
should  have  mnemonic  value  so  that  it  can  be  easily  recalled 
or  identified  by  the  user  when  originating  a report.  For 
example,  the  <filename>,  "PORSTAT”  would  be  appropriate  for 
the  Naval  Forces  Status  Report  (NAVFORSTAT) . (Note  thac 
'•NAVFOHSTAT”  was  not  used  because  it  exceeds  the  eight 
character  limitation  on  <filename>.) 

3.  Execution. 

Upon  receipt  of  the  CREATE  command,  the  system  will  be 
ready  to  commence  building  the  DAT  file  and  will  respond 
with  the  prompting  message,  "EXPECTING  CODE  INFORMATION". 
This  is  a request  that  the  user  type  in  the  appropriate  data 
label  followed  by  the  information  to  be  associated  with  that 
data  label.  To  identify  the  data  label,  it  should  be 
bracketed  by  a pair  of  one  of  the  following  specific 
symbols;  bracketing  the  data  label  with  exclamation  points 
(!)  indicates  that  the  label  itself  is  to  be  included  in 
the  final  report  while  bracketing  with  percent  signs  (S) 
indicates  the  label  is  not  to  be  included  in  the  report. 
Any  information  following  the  bracketed  labels  is  considered 
to  be  part  of  the  data  base  information  for  that  data 
element.  After  all  the  appropriate  coded  information  has 
been  entered,  the  end  of  the  coded  information  section  is 
marked  by  inputting  the  bar  character  (|). 

Now  the  system  will  respond  by  displaying  the  prompt, 
"EXPECTING  ERROR  COMIIANDS".  Error  commands  are  applicable 
to  individual  fields  within  the  coded  information  line.  For 
example,  fields  in  the  NAVFORSTAT  data  element,  COHDR,  are 
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denoted  by  virgules  (/)  separating  the  fields.  The  data 
line  "ACTIV  IP"  contains  one  field  whose  contents  are  "IP"; 
the  data  line  "COMDR  CDR/JONES  J . P ./OO 0 1 1 1- 10"  contains 
three  fields  containing  "CDS",  "JONES  J.P"  and  "000111-10" 
respectively.  Notice  that  the  data  label  is  not  considered 
to  be  a field.  Data  labels  may  be  analyzed  in  different 
ways  by  either  checking  their  content  or  by  comparing  the 
revised  information  to  what  was  previously  reported.  The 
specific  error  commands  are: 

ALPHA  Checks  the  field  to  ensure  all 

characters  are  alphabetic. 

NOM  Checks  the  field  to  ensure  all 

characters  are  numerals. 

PCT<number>  Checks  the  field  to  see  if 

it  is  within  <number>  percent 
of  the  previously  reported  value. 
The  <number>  should  be  two  digits 
between  "01"  and  "99",  inclusive. 

SEQ  Checks  the  field  to  see  if  it  is 

sequential  to  the  last  reported 
value. 

LN6  Checks  the  field  to  see  if  it 

contains  the  same  number  of  digits 
as  the  previously  reported  value. 

Error  commands  are  separated  using  the  same  delimiter  as  the 
coded  information.  If  a report  contains  defined  fields 
separated  by  virgules,  the  fields  for  error  analysis  will  be 
defined  using  virgules.  If  no  defined  fields  exist  in  the 
report  then  a field  may  be  denoted  by  using  braces  ( {) ) as 
delimiters  in  both  the  coded  information  section  and  the 
error  command  section.  These  braces  will  not  appear  in  the 
final  report  format.  If  a specific  field  of  a data  element 
is  not  to  be  checked,  then  two  consecutive  delimiters  are 
entered,  indicating  no  error  command.  If  error  analysis  for 
•I  ••  field  of  a data  element  is  desired,  all  fields  for  that 
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particular  data  element  must  have  error  analysis,  i.e. 
either  one  of  the  five  commands  above  or  the  null  command. 
The  end  of  the  error  analysis  section  is  marked  by  the  tilde 
(i)  character.  If  no  error  analysis  is  desired  for  a data 
element,  a solitary  tilde  should  be  the  response  to  the 
prompt  message.  Thus,  for  the  data  element,  "COMDR" 
previously  shown,  an  error  command  response  might  be 

//ALPHA/NUH-. 

which  would  be  interpreted  as  meaning  no  error  analysis  is 
desired  for  the  field  containing  "CDR”;  the  characters  in 
the  name  field  should  be  alaphabetics ; and  the  characters  in 
the  final  field  should  be  numerals. 

The  system  will  now  respond  by  displaying,  "EXPECTIHG 
PROMPT  INFORMATION”.  Prompting  information  consists  of 
questions  and  explanatory  statements  which  are  to  be 
displayed  to  the  user  during  report  origination.  This 
prompting  information  should  be  concise  and  unambiguous.  3y 
reading  the  prompting  information,  the  user  should  know 
specifically  what  information  is  being  sought  and  in  what 
format  it  should  be  entered.  Again  there  is  a 
correspondance  between  data  element  fields  and  prompting 
information  fields.  During  ROS  program  execution,  prompting 
questions  are  displayed  individually  for  each  field  of  the 
data  element  with  responses  to  each  question  being  entered 
before  continuing  on  to  the  next  question.  Unlike  the  error 
analysis  section,  each  field  of  the  data  element  should  have 
an  appropriate  prompting  question;  if  it  is  decided  that  a 
data  element  need  no  prompting  questions,  then  a null 
prompting  area  should  be  entered.  However,  it  is  strongly 
recommended  that  every  data  element  have  associated 
prompting  questions,  even  if  the  questions  appear  obvious. 
The  end  of  the  prompting  area  is  denoted  by  entering  an 
up-arrow  (f) . 

The  process  will  continue  to  seek  code  information, 
error  analysis  information  and  prompting  questions  until  the 


83 


end  of  file  is  entered.  This  is  accooplished  by  typing  a 
bacic  slant  character  in  response  to  the  "EXPECTING  CODE 
INFORMATION"  query.  At  this  time,  execution  of  the  CREATE 
program  ceases  and  a DAT  file  exists.  This  file  may  be 
referenced  by  <f ilename>. DAT  and  can  be  utilized  by  the  ROS 
program  as  a data  base. 

It  is  recommended  that  the  DAT  files  produced  be  as 
comprehensive  as  possible  to  ensure  that  they  will  be  useful 
for  all  possible  situations.  When  working  with  a highly 
formatted  report  such  as  NAVFORSTAT,  all  data  labels  that 
could  possibly  apply  to  a unit  should  be  included  in  the  DAT 
file;  if,  at  the  time  of  creation,  a particular  data  label 
is  not  pertinent,  the  label  itself  may  be  included  in  the 
file  along  with  a null  code  area  (the  data  label  followed  by 
a bar) , the  error  analysis  area  and  the  prompting  questions. 
If  this  is  done,  when  that  particular  data  element  becomes 
applicable  to  the  unit,  the  system  need  not  be  modified  to 
include  the  information  in  the  report.  By  using  the  report 
inclusion  feature  of  the  ROS  program,  as  explained  in 
Appendix  A,  the  generated  report  content  may  be  tailored  by 
data  element  selection. 

4.  Sample  CREATE  Session. 

An  example  of  the  beginning  of  a CREATE  session  for  a 
NAVFORSTAT  is  shown  below.  Reiteration  of  the  complete 
session  would  be  excessively  lengthy  and  redundent.  It  is 
hoped  that  this  example  will  provide  enough  insight  to  DAT 
file  creation  to  allow  the  ultimate  user  to  produce  a usable 
file  after  a short  experimentation  session.  Lines  displayed 
by  the  system  are  bracketed  by  asterisks  (*)  ; lines  input  by 
the  operator  are  ended  with  a carriage  return  <cr>  or  do  not 
start  and  end  with  asterisks.  In  these  cases,  it  is  not 
necessary  for  the  operator  to  enter  a carriage  return. 
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4 *k>*  (System  is  ready) 

I 

CREATE  PORSTAT<cr>  (FORSTAT  is  the  name  of  the  DAT  file 
produced) 

♦EXPECTING  CCDE  INFORMATION*  (Prompt  message) 

XHEADERX  FM  OSS  NEVERS AIL<cr> 

TO  CINCPACFLT  MAKALAPA  HKcr> 

COMNAVSDRFPAC  SAN  DIEGO  CA<cr> 

CTO  77.7.7<cr> 

CTO  76. 1 .2<cr> 

BT<cr> 

I (Indicates  the  end  of  the  code  area  for  HEADER) 

\ *EXPECTING  ERROR  COMMANDS* 

-•  (No  errcr  commands  are  appropriate  for  this  data  element) 
♦EXPECTING  PROMPT  INFORMATION* 

LIST  APPROPRIATE  ACTION  AMD  INFORMATION  ADDRESSEES  IN  <cr> 
STANDARD  NAVAL  MESSAGE  FORMAT  ENDING  WITH  THE  "BT*'  LINE.^f 

♦EXPECTING  CCDE  INFORMATION* 

^ (Ready  for  the  next  data  element) 

XIDENTX  NAVFOfiSTAT  {000}  AS  OP  {000000)2  JAN  00<cr> 

FP  1234,  NEVERSAIL/N09999  <cr> 

I PART  II 

♦EXPECTING  ERROR  COMMANDS* 

(SEQ)  (LNG)/- 

(Indicates  that  the  report  number  field  is  to  be  checked  for 
sequence  and  the  DT6  field  is  to  be  checked  for  6 digits. 
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All  other  fields  have  null  commands) 

♦EXPECTING  PROMPT  INFORMATION* 

MODIFY  THE  REPORT  NUMBER  AND  "AS  OF”  DTG  APPROPRIATELY t 
♦EXPECTING  CCDE  INFORMATION* 

ITSKCD!  CTO  077. 7. 7| 

♦EXPECTING  ERROR  COMMANDS* 

-•  (No  appropriate  error  commands) 

♦EXPECTING  PROMPT  INFORMATION* 

HHO  IS  YOUR  TASK  ORGANIZATION  C CMMANDER?<cr> 

RESPOND  IN  THE  FORM  CTA  NNN.N.N> 

♦EXPECTING  CCDE  INFORMATION* 
lOPCON!  CTO  077.7.7) 

♦EXPECTING  ERROR  COMMANDS* 

-•  (No  appropriate  error  commands) 

♦EXPECTING  PROMPT  INFORMATION* 

HHO  IS  YOUR  OPERATIONAL  COMM ANDER?<cr> 

RESPOND  IN  THE  FORM  CTA  NNN.N.Nf 
♦EXPECTING  CCDE  INFORMATION* 

IHOGEOI  SAN  DIEGO  CA| 

♦EXPECTING  ERROR  COMMANDS* 

ALPHA-i  (Alphabetic  characters  only) 

♦EXPECTING  PROMPT  INFORMATION* 

HRERE  IS  YOUR  HOMEPORT?f 
♦EXPECTING  CCDE  INFORMATION* 
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ICCMDBl  CDR/EITCH  H. T. /012345-6 0| 

♦expecting  eprcr  commands* 

ALPHA/ALPHA/NDM-. 

(Alphabetic  characters  in  the  first 
two  fields,  numeric  in  last) 

♦expecting  prompt  information* 

HHAT  IS  YOUR  COMMANDING  OFFICER’S  RANK7/HIS  NAME?  LAST  NAME 
FOLLOWED  BY  INITIALS/HIS  LINEAL  NUMBER7+ 

*EXPECTING  CCDE  INFORMATION* 

!ACTIV!  IP| 

♦EXPECTING  ERROR  COMMANDS* 

ALPHA-* 

♦EXPECTING  PROMPT  INFORMATION* 

HHAT  IS  YOUR  CURRENT  EMPLOYMENT?f 
♦EXPECTING  CCDE  INFORMATION* 

IXFERR!  NCOOC/OOOOOO/OO-OO.ON,  000-00 . OE/000000 | 

♦EXPECTING  ERRCP.  COMMANDS* 

LNG/LNG/LNG/LNG-*  (Checks  all  fields  for  proper  number  of 
characters) 

♦EXPECTING  PROMPT  INFORMATION* 

TO  HHAT  ACTIVITY  ARE  YOU  TRA NSPBREING?/<cr> 

WHEN  DO  YCU  TRANSFER?  TTHMDD/<cr> 

WHERE  DOES  TRANSFER  TAKE  PLACE?  XX-XX.XN,  XXX-XX. XE/<cr> 

WHIN  DO  YOU  DEPART  FOR  TRANSFER  POINT?  YYMMDDf 
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♦EXPECTING  CCDE  IHFOEMATION* 


!ABRDT!i  (Null  code  area) 

♦EXPECTING  EEEOR  COMMANDS* 

LNG-« 

♦EXPECTING  FEOMPT  INFORMATION* 

HHAT  IS  YCOE  ARRIVAL  DATE  AFTER  THANSFER?<cr> 

GIVE  IN  POEM  YIMMDDf 
♦EXPECTING  CCDE  INFORMATION* 

IFADDD!  1| 

♦EXPECTING  ERROR  COMMANDS* 

NDM-. 

♦EXPECTING  PROMPT  INFORMATION* 

HHAT  IS  YOUR  FORCE  ACTIVITY  DIGITVf 
♦EXPECTING  CODE  INFORMATION* 

IPERSN  NEl/0240/022 1/01951 
♦EXPECTING  EEBCR  COMMANDS* 

/PCT10/PCT10/PCT10-» 

(Check  each  field  for  10X  changes) 

♦EXPECTING  EBCMPT  INFORMATION* 

NAVY  ENLISTED  PERSONNEL-RESPOND  WITH  4 DIGITS/<cr> 
STROCTORED  STRENGTH7/AOTHORIZED  STRENGTH?/<cr> 
ASSIGNED  STRENGTH?t 
♦EXPECTING  CCDE  INFORMATION* 
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(The  CREATE  prograa  will  continue  to  request  the  three 
categories  c£  information.  After  all  desired  data  labels 
have  been  included  in  the  DAT  file,  a back  slant  should  be 
entered  in  response  to  "EXPECTING  CODE  INPOBHATION" . ) 

Again,  it  is  emphasized  that  prompting  questions  and 
error  commands  be  as  comprehensive  and  unambiguous  as 
possible.  If,  before  composing  these  questions,  the  drafter 
anticipates  the  questions  of  the  ultimate  user,  a much 
better  product  will  result.  During  execution  of  the  CREATE 
program,  the  features  of  either  line  editor  may  be  used.  It 
should  be  remembered  that  modifications  filed  during  the  ROS 
program  execution  are  incorporated  not  only  in  the  HSG  file 
but  are  also  reflected  in  the  code  information  area  of  the 
DAT  file. 
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SOMMAHY  FOR  CREATE  USERS 


► 


t 
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1.  Turn  cn  power  to  the  licrocomputer , diskette  drive  and 
terainal.  (Diskette  out!!) 

2.  Select  appropriate  diskette  and  insert  into  the  "A"  slot. 

3.  Load  the  computer  program  by  depressing  the  ’’RESET” 
switch.  An  ”A>”  should  appear  on  the  screen. 

4.  Confirm  that  the  required  DAT  file  is  present  cn  the 
diskette  by  typing  "DIR  *.DAT  <cr>".  This  will  list  all  DAT 
files  present  on  that  diskette.  If  necessary,  repeat  Steps 
2 through  4 for  all  diskettes. 

5.  Execute  CREATE  program  by  typing  "CREATE  <fil6nacie> 

<cr>".  Respond  to  the  system  queries  until  the  last 

applicable  data  element  has  been  entered,  then  close  the 
file. 

Delimiter  symbols  are: 

I - End  of  data  code  area. 

-•  - End  of  error  command  area, 
t - End  of  prompt  area. 

\ - End  of  file. 

6.  After  closing  the  file,  "A>"  will  appear  on  the  screen. 
Verify  that  the  OAT  file  is  present  by  typing  "DIR 

<filename>. DAT  <cr>". 

7.  Execute  the  ROS  program  if  desired. 
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****************** 
* ♦ 

♦ HOS  PROGRAM  ♦ 

* * 

^t^m*^*^Hfm********  */ 


*iti**m*m***  ***^***********m******************** 

A REPORT  ORIGINATION  SYSTEM  DESIGNED  FOR  SHIPBOARD 
USE  IN  THE  GENERATION  OF  REQDIRED  RECURRING  REPORTS. 

THE  SYSTEM  USES  AS  INPUT  A DATA  BASE  (DAT)  FILE  AND 
PRODUCES  AS  OUTPUT  A MESSAGE  (MSGJ  FILE.  THE 
SOFTWARE  SYSTEM  CONSISTS  OF  TWO  PROGRAMS;  HOS  AND 
CREATE.  CREATE  IS  USED  TO  CREATE  A DAT  FILE  AND  ROS 
IS  CSED  TO  UPDATE  THE  DAT  FILE  AND  CREATE  A MESSAGE. 

THE  ROS  PROGRAM  IS  MADE  UP  ON  THE  FOLLOWING  MODULES: 

1.  OPERATING  SYSTEM  INTERFACE 

2.  INITIALIZE 

3.  EDITING 

4.  ERROR 

5.  OUTPUT 

THE  CREATE  PROGRAM  IS  MADE  UP  OF  THE  FOLLOWING 
MODULES; 

1.  INITIALIZE 

2.  INPUT-EDITING 

3.  FINISH 

BOTH  PROGRAMS  WERE  DESIGNED  FOR  EXECUTION  ON  THE 
INTFllEC-8  MICROCOMPUTER  SYSTEM,  WITH  CROSS  COMPILATION 
BEING  DONE  ON  AN  IBM  360/65. 

*^mm***mm****m* *****************************  **********  */ 

100H:  /♦  PROGRAM  TO  BE  LOADED  INTO  MEMORY  STARTING  HERE  */ 

**************************************  ************** 
OPERATING  SYSTEM  INTERFACE  DECLARATIONS. 
********************************m******************m*^  m/ 

DECLARE 


LIT 

LITERALLY 

'LI 

BOOT 

LIT 

• 00&5H' 

ENTRY 

LIT 

r /* 

TRUE 

LIT 

' 1'  » 

FALSE 

LIT 

•0*' 

' WHILE 

FOREVER 

LIT 

TRUE' 

CR 

LIT 

•ODH* , 

LF 

LIT 

•OAH* , 

CTI 

LIT 

*0', 

CTS 

LIT 

• 1*  ' 

DCNT 

BDOSA 

BYTE, 

ADDRESS 

INITI 

SBDOS 

BASED 

BDOSA  ADDRESS 

V 


/*  mnt****  **********************************  ************** 

INITIALIZE  DECLARATIONS 

******************************* ***********************  *^ 


DECLARE 

PROMPT 

RH 

RHPTB 

DLSLEN 


BYTE  INITIAL(PALSE] 
ADDRESS  INITIAL  ( 
BASED  RM  BYTE. 
BITE  INITIAL  (0)  , 


H)  , 
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NOMSREC  BYTE, 

HORKSHAP  ADDRESS, 

HMPTR  BASED  MORKIMA?  BYTE. 

EXTSRN  BASED  HORKSHAP  ADDRESS, 

NUM$ELEMENTS  BYTE, 

E$R$A  ADDRESS, 

ER  BASED  ESRSA  BYTE, 

NRSREAD  BYTE, 

NR  BYTE, 

SAVESEXT  BYTE, 

SAVESRN  BYTE, 

DATSAREA  ADDRESS, 

DAT  BASED  DATSAREA  BYTE, 
BASESDATSAREA  ADDRESS, 

TSDATSAREA  ADDRESS, 

CODESA  ADDRESS, 

CODE  BASED  CODESA  BYTE, 

ADDRESS, 

ADDRESS, 

ADDRESS  INITIAL  (80H) 
MSGSAREA  BYTE, 

BYTE, 

BYTE, 

BYTE, 

BYTE, 

BYTE  INITIAL  (FALSE)  , 

STOP  BYTE  INITIAL  (FALSE), 

MODIFY  BYTE  INITIAL  (TRUE), 

HOLDSNH  ADDRESS: 


BSCODESA 
TOPSMEM 
MSGSAREA 
MSG  BASED 
SAVSEXT 
SAVSRN 
OLDSEXT 
CLDSRN 
MORF 


/*  m************m**************m**m* *******  ************** 

EDITING  DECLARATIONS 

********************* *********************************  */ 

DECLARE 


BUFFER 

(180) 

BYTE, 

SIZESNB 

nehsfuf 

UF  LIT 

•90', 

ADDRESS 

NBUF 

BASED 

NEWSBDF  BYTE, 

NPTE 

BYTE, 

oldsbuf 

ADDRESS 

OBUF 

BASED 

OLDSBUF  BYTE, 

OPTR 

BYTE, 

NB 

TN 


BASED 


ADDRESS, 
NB  BYTE 


U & X £«  • 

ADDRESS, 

BYTE  INITIAL  (FALSE) 
INITIAL  (false) 
25H', 

08H'  , 

07H*  , 
09H', 

5EH»  , 

7CH* 

7EH* 

1 AH' 

7FH  ' 

5CH* 

•20H  • 

•26H' 

•2FH  ' 

•7BH* 

•7DH  ' 


OB 

INSERT 

INSERTION  BYTE 
PERCENT  LIT 

BS  LIT 

BELL  LIT 

TAB  LIT 

20P  LIT 

EOC  LIT 

ERR  LIT 

CTLZ  LIT 

HOBOOT  LIT 

ENDSFILE  LIT 

BLANK  LIT 

AMPERSAND  LIT 
SLASH  LIT 

LERACE  LIT 

RBRACE  LIT 

CHAR  BYTE, 

EDSEOFSPTR  address, 
(EDiBOF  BASED  EDSBOFSPTR) 

freelistsext  byte  initial 

FRBELISTSHN  BYTE  INITIAL 
PBOHFTSAREA  ADDRESS; 


/♦  BACKSPACE  */ 


/♦  DP-ARROW;  END  OF  PROMPT 
/♦BAR:  END  O’  CODE  ♦/ 

/*  TILDE;  END  OF  ERROR  ♦/ 


■/ 


/♦BACK  SLANT  ♦/ 


100) 

§i; 


BYTE, 


92 


) /*  *^^:^*:t,^^^^*m^^****^^*******************************■*‘******* 

ERROR  DECLARATIONS 

**************  *****************************  */ 

DECLARE 

ERRA  ADDRESS, 

ECMD  BASED  ERRA  BYTE, 

BERRA  ADDRESS, 

WARN  BYTE  INITIAL  (FALSE)  ; 

/*  ********  ********************  ************************** 

OUTPUT  DECLARATIONS 

DECLARE 

DATSFCB  ADDRESS  INITIAL  (5CH) , 

DFCE  BASED  DATSFCB  BYTE, 

SSG$FCB(33)  BYTE, 

PRINTSLABEL  BYTE  INITIAL  (FALSE) ; 


/*  ****************************************************** 

OPERATING  SYSTEM  INTERFACE  MODULE 

FUNCTION:  SERVES  AS  AN  INTERFACE  TO  THE  RESIDENT 

OPERATING  SYSTEM.  IT  ALLOWS  INPUT/OUTPUT  OPERATIONS 
TO  BE  HANDLED  BY  SYSTEM  CALLS. 

***************************** *************************  *y 

CRTIN;  PROCEDURE  BYTE: 

DO  WHILE  INPUT (CTS)  ; 

END: 

RETURN  NOT  INPUT  (CTI)  AND  07FH; 

END  CRTIN; 

RBADC;  PROCEDURE  BYTE; 

DECLARE  C BYTE: 

IP  (C:*CRTIN)  >=  110S0001B  /♦  LOWER  CASE  A ♦/ 

AND  C <=  DIIUIOlOB  /♦  LOWERCASE  Z */  THEN 
C » C AND  10  1J1111B;  /*  BECOMES  UPPER  CASE  */ 

RETURN  C: 

END  RSADC; 

MONl:  PROCEDURE  (FUNC,  INFO): 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MONl; 

MON2:  PROCEDURE  (FUNC,  INFO)  BYTE; 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MON2; 

MON  3:  PROCEDURE  fFUNC,  INFO)  ADDRESS; 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  NON3; 

PRINTCHAR:  PROCEDURE  (B) ; 

DECLARE  B BYTE; 

CALL  MONl  (2.B)  ; 

END  PRIMTdHAR; 

I PRINTCHARI:  PROCEDURE(C) ; 

DECLARE  C BYTE* 

( IF  ~ic  AND  OnoioOOOB)  * 0 /*  CONTROL  CHAR  ♦/  THEN 
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DO: 

CALL  PHINTCHAR  (EOF)  ; 

CALL  PHINTCHAR  (C  OR  UOH)  ; 

END; 

ELSE 

CALL  PRINTCHAR(C)  ; 

END  PRINTCHARI; 

CRLP:  PROCEDURE: 

CALL  PRINTCHAR  (CF.)  ; 

CALL  PRINTCHAR  (LF  ; 

END  CRLP; 

PRINT:  PROCEDURE  (A)  ; 

DECLARE  A ADDRESS; 

CALI  MON1  (9,  A)  ; 

CALL  CRLF; 

END  PRINT; 

SET3DMA:  PROCEDORBfA)  ; 

DECLARE  A ADDRESS; 

CALL  MON1  (26,  A)  ; 

END  SETSDMA; 

DISKBEAD;  PROCEDURE(A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  BON2(20,A)  ; 

END  DISKREAD; 

DISKWRITE:  PROCEDURE(A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  ilON2(21,A)  ; 

END  DISKNRITE; 

OPEN:  PROCEDURE  (A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  MON2  (15,  A)  ; 

END  OPEN; 

CLOSE:  PHOCBDURE(A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  MON2  (16,  A)  ; 

END  CLOSE; 

SEARCH:  PROCEDURE  (PC3)  BYTE; 

DECLARE  FCB  ADDRESS; 

RETURN  BON2(17,FCB) ; 

END  SEARCH; 

HAKE:  PROCEDURE  (FCB)  BYTE; 

DECLARE  FCB  ADDRESS; 

RETURN  MON2  (22, FCB)  ; 

END  HAKE; 

LIFTHEAD:  PROCEDURE; 

CALL  HON1712,0)  ; 

END  LIFTHEAD; 

H07E:  PROCEDURE  (SOURCE, DEST.N): 

DECLARE  (SOURCE, DEST)  ADDRESS, 

(S  BASED  SOURCE,  D BASED  DEST,  N ) BYTE; 

DO  iHILB  (N:*N-1)  <>  255; 

C»S;  SOURCE»SOORCE+1 ; DBST=DEST+1; 

END; 

END  MOVE; 

ERROR:  PfiOCEOURE(I)  ; 

DECLARE  1 BYTE; 

DO  CASE  I: 

: /♦  CASE  0 NOLL  ERROR  STATEMENT  ♦/ 

CALL  PRINT (.'DISK  READ  ERROR  $•); 

CALL  PRINT (. 'ERROR  COMMAND  NOT  DEFINED  S') 
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CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 

END; 

GO  TO  BOOT; 

END  ERROR; 


•A  MESSAGE  PILE  EXISTS  $*)  ; 

' DISK  WRITE  ERROR  S'): 

•OUT  OF  DIRECTORY  SPACE  I'); 
•DAT  FILE  NOT  PRESENTS')  ; 

•MSG  FILE  NOT  PRESENTS'); 


********************************  ************** 


INITIALIZE  MODULE 


FUNCTIONS:  TO  OPEN  THE  APPROPRIATE  DAT  PILE,  MAKE 
A MESSAGE  PILE  AND  ALLOW  THE  USER  TO  SELECT  A SET  OF 
DATA  ELEMENTS  TO  WORK  WITH.  IT  THEN  INITIALIZES 
MEMORY  WITH  THE  SELECTED  DATA  ELEMENTS. 


*******************  :ti*  *********************************  */ 


MAKSSMSGSFILE : PROCEDURE; 

CALL  MOVE  (.  'MSG' ,.  MSGSFCB  + 9.3); 
MSGSFCB.MSGSFCB  (12)  ,MSGSFCB(32)  = 0; 

IF  SEARCH  (.  MSGSFCB)  <>  255  THEN 
CALL  ERROR{3)  ; 

IF  MAKE (. MSGSFCB)  = 255  THEN 
CALL  ERROR(5)  ; 

IF  OPEN (.MSGSFCB)  = 255  THEN 
CALL  ERROR (7)  ; 

END  MAKESMSGSFILE; 

INIT:  PROCEDURE: 

CALL  MOVE f5DH , .MSGSPCB+1 ,8)  ; 

CALI  MAKESMSGSFILE; 

CALL  HOVE  (.  'DAT*  ,DATSFCB  + 9,3)  ; 

DFCE(12)  , DFCB(32)  =0; 

IF  OPEN  (DATSFCB)  =255  THEN 
CALL  ERROR  (6); 

IF  (DCNT:=DISKR£AD  (DATSFCB)  ) <>  0 THEN 

CALL  ERROR  (1)  ; 

CALL  LIFTHEAD; 

END  INIT; 


INCSRM:  PROCEDURE; 

RM  = RH  + 1 ; 

END  INCSRM; 

INCSWM:  PROCEDURE: 

WORKSMAF  = WORKSMAP  + 1; 

END  INCSWM; 

PRINTSDATASE:  PROCEDURE; 

DECLARE  (I.J)  BYTE; 

DO  I = 1 TO  NUMSELEHENTS: 

IF  RHPTP  = EOC  THEN  /*  END  OF  RECORD  MAP  •/ 

DO: 

STOP  = TRUE; 

RETURN; 

END: 

CALL  INCSRM; 

DLSLEN  = 1; 

DO  WHILE  (RMPTR  <>  '!')  OR  (RMPTR  <>  PERCENT); 
CALL  PRINTCHAR  (RMPTR)  ; 

CALL  INCSRM: 

DLSLEN  = DLSLEN  ♦ 1; 

END; 

CALL  INCSRM: 

CALL  PRINTCHAR  (•  ' ) ; 

DO  WHILE  RMPTR  = ' O'  ; 

CALL  INCSRM; 
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END; 

RM  = RM  +2; 

END: 

END  PRINT$DATA$E; 

SAVE$EX$EN$NR:  PROCEDURE: 

HHPTE  = ER;  /♦  EXTENT  */ 

CALL  INCSHM: 

BMPTR  = ER  (b  ; /*  RN  */ 

CALL  INCSHM: 

HMPTR  = ER(\7)  - ER  (1)  ; /♦  NUMBER  OF  RECORDS  */ 

CALL  INCSHM; 

END  SAVESEXSRNSNR; 

PRINTSPACE:  PROCEDURE; 

DECLARE  I BYTE: 

DO  I = 1 TO  DLSLEN; 

CALL  PBINTCHAR  (•  •)  ; 

END; 

END  PRINTSPACE; 

CHKSRESEONSE;  PROCEDURE; 

DECLARE  (I.C)  BYTE: 

DO  I = 1 TO  NUrtSELEMENTS; 

CALL  PRINTCHAR  (C:  = READC)  ; 

IF  C = *Y'  THEN 

CALL  SAVESEXSRNSNR; 

ELSE 

IP  C = 'S'  THEN 
DO; 

STOP  = TRUE; 

RETURN; 

END; 

ESHSA  = ESRSA  ♦ 16; 

CALL  PRINTSPACE; 

END; 

END  CEKSRESPONSE; 

SELSHE:  PROCEDURE; 

HORKSMAP  = .MEMORY  ♦ 1536; 

NOMSELEMENTS=5: 

IF  (MODIFY  » TRUE)  THEN 

CALL  PRINT (.'select  DATA  ELEMENTS  TO  HORK  HITHS*); 

ELSE 

DO: 

CALL  PRINT (. 'SELECT  DATA  ELEMENTS  TO  BE 
INCLUDED  IN  THE  REPORT  $'); 

HORKSMAP  = .MEMORY  ♦ 1792; 

END: 

ESESA  ^ RH  ^ 14* 

DO  HHILE  (RMPTR’o  EOC)  AND  (STOP  = FALSE)  ; 

DO  HHILE  RH  < 100H; 

CALL  PRINTDATASE; 

CALL  CRLF: 

CALL  CHKSRESPONSE; 

END; 

IF  (DCNT:  = DISKRBAD  (DATSFCB)  ) <>  0 THEN 
CALL  ERROR(I)  ; 

END; 

END  SELSHE; 


BESSELECT:  PROCEDURE; 
STOP  » FALSE; 
MODIFY  * FALSE; 
CALL  SELSHE: 

END  BBSS  ELECT; 


SETSHEH:  PROCEDURE: 

DATlABEA, EASESDATSAREA  » HORKSMAP; 
TOPSHEM  « SBDOS  - 1 ; 

HORKSMAP  « . MEMORY; 
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DFCE(32)  = WMPra(l);  /♦  HN  TO  START  READ  ♦/ 
NR  * HHPTR  (2)  ; 

NR$READ  = 0; 

END  SETSHEM; 

OPEN$EXT:  PROCEDORE; 

DFCB(12)  = WMPTR; 

IF  OPEN  (DATSFCE)  = 255  THEN 
CALL  ERROR  (1)  ; 

END  OPENSEXT; 

RBADSDSREC:  PROCEDURE: 

IF  EFCB(121  <>  HHPTR  THEN 
CALL  OPENSEXT: 

CALL  SBTSDMAiDATSAREA) : 

IF  (DCNT;=DISKHEAD(DAT$PCB)) 


CALL  ERROR  (1)  ; 
NRSREAD  - NRSREAO  *■  1 
DATSAREA  = DATSAREA  *■ 
CALI  SETSDMA  (80H) ; 
DFCE(12)  = DAT  (126)  ; 
DFCEj32)  = DAT027)  ; 
END  BEADSDSREC; 


<>  0 THEN 


128; 


READSDAT:  PROCEDURE: 

DO  WHILE  DAT$AfiEA+128  < TOPSMEM; 

IF  NRSREAD  = NR  THEN 

IP  (H0RKSMAP:*W0RKSMAP-*-3)  >=  BASESDATSAREA- 1 THEN 
DO;  /*  FINISHED  ♦/  MORE  = FALSE;  RETURN;  END; 
ELSE 

DO;  DPCB(32)  = WaPTR(l);  NRSREAD  = 0; 

NR  = HMPTR  (2)  ; END; 

CALL  READSDSREC; 

END: 

MORE  * TRUE; 

SAVESEXT  = DFCB(12)  ; 

SAVESRN  = DPCB132J  ; 

HOLCSWn  = HORKiHAP; 

END  READSDAT; 

READSMORE:  PROCEDURE: 

DECLARE  HOLD  ADDRESS: 

HOLD,HORKSHAP  = HOLDSWN; 

DFCE(12)  = SAVESEXT; 

DFCB(32)  * SAVESRN: 

DATSAREA  « BASESDATSAREA ; 

CALL  READSDAT: 

HORRSHAP  » HOLD: 

TSDATSAREA  » DATSAREA: 

DATSAREA  « B ASESOATSAREA ; 

END  READSMORE; 

ALLOCATE:  PROCEDURE: 

SAVSEXT  * DFCB(12)  ; 

SAVIRM  » DPCB(32)^: 

DAT  (126)  = FREBLISTSEXT; 

DATi127)  « FREELISTSRN; 

OLD<EXT  « DAT  (252)  ; 

OLDSHM  ■ DAT  (253)  ; 

DPCE(12)  ■ PHEBLISTSBXT; 

DPCB(32)  » PREBLISTSRN; 

CALL  RBADSDSREC: 

PRBBLISTSEXT  > DAT  (126); 

PREBLISTSRN  * DAT(T27)  : 

DAT  (124)  « OLOSEXT; 

DAT  (125)  > OLDSRN; 

DAT  (126) 

DAT 
END 


n : 

, SAVSEXT; 

(127)  » SAVSRN; 
ALLOCATE; 


PRBE:  PROCEDURE; 

DPCB(12)  - DAT(126) 
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DFCB132)  = DAT(127 


DAT 

DAT 

DAT 

DAT 


252  * DATi 

^53  * DATkifc-'j  t 

126  = PREELISTSEXT; 

^127  = PfiEELIST$aH: 

DATiAREA  * DATSAREA  - 128; 

FHEELISTJEXT  = DAT  f 126)  ; 

FREELISTSRN  = DATiT27) ; 

DAT  (126)  = DPCB(12)  ; 

DAT  (1271  = DPCB  (32)  ; 

CALL  READSDiREC; 

END  FREE; 

DIGSTOSNDM:  PROCEDURE  (STR)  BYTE; 

/♦  CONVERTS  A STRIN3  OF  ASCII  DIGITS  TO  A DECIMAL  NUMBER  ♦/ 
DECLARE 
STR  ADDRESS, 

STR1  BASED  STR  BYTE, 

I BYTE  INITIAL 


:AL  (0)  , 

M BYTE  INITIAL  joi  : 

“ B LAN K ; 


DO  WHILE  STR1 
1=1  + 

END: 

IF  STR1(I)  = CR  THEN 
RETURN  1: 

DO  WHILE  (STRl(I*1)  <>  BLANK)  OR  (STR1(I+1)  <>  CR) 
M=(M*10)  ♦ (STR1  (D-48)  ; 

END;  ’ 

RETURN  M; 

END  DIGSTOSNUN; 

LONG;  PROCEDURE  BYTE; 

DECLARE  L BYTE  INITIAL  (0); 


IP 


DO 


(RMjO)  = •!*)  OR  (RM(0)  = ' ')  THEN 

L = L ♦ 1; 

WHILE  <> 


<> 

1 


OR 


END; 

RETURN  L; 

END; 

ELSE 

RETURN  DLSLEN; 

END  LONG; 

/*  *4i****«***4i*****4i«**4i4^«*4i*iti*  *««***  *ii*  *«**«*««*** 

EDITING  MODULE 

FUNCTION:  TO  ALLOW  ENTRY  OF  DATA  AND  EDITING  OF 

ENTERED  DATA  BY  USE  OF  LINE  EDITING  FUNCTIONS.  THE 
USER  MAY  SELECT  TO  ENTER  DATA  DIRECTLY  INTO  THE 
CODED  AREA  OR  BE  PROMPTED  AS  TO  WHAT  INFORMATION  IS 
REQUIRED. 


*«4i«4i4(4i4c4t4i4i««4i4t4r4i4i4r**4>4i*4i  *«**#«** 

/*  PROCEDURES  OF  THE  LINE  EDITOR  ♦/ 


♦/ 


BACKSUF:  PROCEDURE; 

IF  NPTR  > 0 THEN 
DO; 

NPTR  * NPTR  - 1; 

CALL  PRINTCHAR  (BS)  ; 
CALL  PRINTCHAR  (•  ')  ; 
CALL  PRINTCHAR  (BS)  ; 
END; 

ELSE 
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CALL  PBINTCHAR  (BELL)  ; 

END  BACKS  OP; 

MOVESTOfOLD:  PHOCEDORE: 

CALL  MOVE  (NEHSBOF+l  ,OLDSBUF+1  , (OBOF:  = NPTR)  ) ; 

OPTR  = 0:  NPTR  = 0; 

END  MOVESTOSOLD; 

OLDSTCSNEW:  PROCEDURE; 

NBUFfNPTR : = NPTR+1)  = OBOF (OPTR:=OPTR+1)  ; 

END  OLDSTOSNEN; 

ECHOSON:  PROCEDURE: 

CALL  PRINTCHAR(NB0F(NPTR:  = NPTR  + 1)  ;=  (OBOF  (OPTR  : =OPTR+ 1)  ) ) ; 
END  ECHOSON; 

COPYSONE;  PROCEDURE; 

IP  OPTR  <=  OBOF  THEN 
CALL  ECHOSON: 

ELSE  CALL  PRINTCHAS  (BELL)  ; 

END  COPYSONE; 

PSMOVESCN:  PROCEDURE:  /♦  PARTIAL  HOVE  OLD  TO  NEW  V 
DO  WHILE  OPTR  < OBOF; 

CALL  ECHOSON; 

END; 

END  PSHOVESON; 

ENTER;  PROCEDURE; 

IF  INSERT  THEN 

CALL  PRINTCHAR  (•>»); 

ELSE 

CALL  PRINTCHAR (• <*) ; 

INSERT  * NOT  (INSERT); 

END  ENTER; 

PRINTSOLD:  PROCEDURE; 

DECLARE  I BYTE; 

DO  I»  1 TO  OBOF; 

CALI  PRINTCHABI  (OBUF(I)  ) ; 

END: 

CALI  CRLF: 

END  PRINTSOLD; 

PRINTSNEW:  PROCEDURE; 

DECIAHE  I BYTE; 

DO  I » 1 TO  NPTR; 

CALL  PRINTCHARI  (NBOF(I)  ) ; 

£M  D • 

ENO'PBINTSNEW; 

PRINTSECTH:  PROCEDURE; 

CALL  PRINTSOLD; 

CALL  PRINTSNEW; 

END  PRINTSBOTH; 

COPYSRMSOSN:  PROCEDOBS: 

/♦  COPIES  REMAINING  CHARACTERS  FOP.  OLD  TO  NEW  BUFFERS  ♦/ 

DO  WHILE  OPTR  <*  OBUP; 

CALL  OLDSTOSNEW; 

END: 

CALL  PRINTCHAR (*♦•) ; /*  INDICATES  WHEN  DONE  •/ 

END  CCPYSRHSOSN; 

BSSOSN:  PROCEDURE: 

/«  EACKSPAC3  OLD  PTR  AND  NEW  PTR  1 CHAR  */ 

IP  (OPTR  >0)  AND  (NPTR  > 0)  THEN 
DO ; 

OPTR  » OPTR  - 1; 

NPTR  « NPTR  - 1; 

OBOF  » OBOF  - 1; 
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END; 

ELSE 

CALL  PRINTCHAR  (BELL)  ; 

END  BSSOSN; 

COPYSON:  PROCEDURE  (C)  ; 

DECLARE  (C,I)  BYIE; 

I=OPTR: 

DO  HHltE  OBUP(I:  = I + 1)  <>  C; 

IF  I > OBOP  THEN  /♦  NO  NATCH  »/ 

CALL  PRINTCHAR  (B2LL)  ; 

RETURN; 

END  * 

END;  /♦  6o  WHILE  ♦/ 

DO  WHILE  OPTR  < I; 

CALL  ECHOSON; 

END; 

END  COPYSON; 

DELETE:  PROCEDURE  (ECHO)  : 

DECLARE  (I,J, PI, CHARI, ECHO)  BYTE; 
P1=CPTR; 

CHARI  = READC; 

DO  WHILE  (OBOPfPI  ; = P1+1)  <>  CHARI); 
IF  PI  > OBUP  THEN  /♦  NO  HATCH  ♦/ 
DO? 

CALL  PRINTCHAR (BELL) ; 

RETURN; 

END; 

END:  /♦  DO  WHILE  */ 

IF  ECHO  THEN 

DO  I = OPTR+1  TO  PI ; 

CALL  PRINTCHAR (PERCENT) ; 

END; 

. /♦  NOW  CONDENSE  THE  BUFFER  */ 
J=OPTR; 

I*P1 : 

DO  WHILE  I <=  OBUP; 

OBUP  (J:=J+1)  = OBUF(l:=l  + i) ; 

END: 

OBOE  = OBUP  - (P1-OPTR+1) ; 

END  DELETE; 

DELSN:  PROCEDURE: 

OPTR,NPTR  * 0; 

OBOE  = 0: 

CALL  PRINTCHAR (ENDSFILE)  ; 

CALL  CHLF; 

END  DELSN; 

DISPLAYSRMSOSN:  PROCEDURE; 

DECLARE  I BYTE; 

1*0: 

CALL  CRLP; 

DO  WHILE  (I:*I*1)  <*  OBUP: 

IF  I <»  OPTR  THEN  /♦  EVEN  LINE  */ 
CALL  PHINTCHAflJ'  •)  ; 

ELSE  CALL  PRINTCHAR  (OBUP (I) ) ; 

END: 

CALL  CRLP: 

CALL  PBINTSNEW; 

END  DISPLAYSRHSDSN; 

DZLSO:  PROCEDURE: 

IP  OPTR  > 0 THEN 
DO: 

DECLARE  I BYTE; 

I * OPTR-1; 

DO  WHILE  (I:*l*1)  < OBOP; 
OBOP(I)  * OBOP  (1*1)  ; 
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END; 

CALL  PPINTCHA8 (P2RCEMT)  ; 

OBUF  = OBOF  - T; 

END: 

ELSE  CALL  PBINTCHAR  (BELL)  ; 

END  DELSO; 

ESCAPE*  PROCEDURE* 

/♦’turns  off  Special  meaning  of  character  to  follow 

AND  ENTERS  CHARACTER  IN  NEW  BUFFER  ♦/ 

CALL  PRINTCHARI (CHAR:=READC) ; 

NBUF(NPTR  :=NP?E*1)  =CHAR; 

END  ESCAPE; 

PRINTSTAE:  PROCEDURE; 

IF  (NPTS  + 5)  > SIZESNBUF  THEN 
CALL  PRINTCHAR (BELL) ; 

ELSE 

NBUF  (NPTR:  =NPTR*  1)  * TAB; 

CALL  PRINTCHAR  (TAB)  ; 

END  PRINTSTAB; 

BEGINSNBD:  PROCEDURE; 

DO  WHILE  NEH$BUF(NPTR-^)  <>  ' '; 

' CALL  BACKSUP; 

END; 

END  BEGINSHRD; 

/♦  END  OP  PROCEDURES  CALLED  FROM  THE  LINE  EDITOR  ♦/ 


INCSDA:  PROCEDURE; 

OATSAREA  = OATSAREA  >1; 

END  INCSDA; 

INCJCA;  PROCEDURE: 

COOE5A  * CODESA  ♦ 1 ; 

END  INCSCA; 

INCJER;  PROCEDURE; 

ERR  A = ERRA  + 1; 

END  INCSER; 

NOVESCLSNEW:  PROCEDURE; 

DO  WHILE  NPTR  <=  DLSLEN: 

IP  PROMPT  THEN  CALL  OLDlTOSNEW; 

ELSE  CALL  ECHOSON; 

END  * 

NB  * NEWS  BOP  ♦ NPTR  ♦ 1; 

OPTR  = NPTR; 

END  MOVBSDLSNEH; 

HOVESCCDESOLD:  PROCEDURE; 

DECLARE  DBST  ADDRESS,  D BASED  DEST  BYTE; 
DBST  « OLDIBDP+1; 

OPTR, NPTR rOBOF  » 0; 

DO  WHILE  DAT  O EOC; 

D ■ DAT: 

IP  HOT (PROMPT)  THEN  CALL  PR INTCHAR  (D)  ; 
CALL  IMCSDA; 

DBST  « DBSr  ; 

OBDP  » OBOP  ♦!; 

END: 

CALL  CBLP: 

CALI  MOVESDLSMEW: 

END  MOPES  CODE  SOLD; 

SETSPTR:  PROCEDURE; 

DO  WHILE  DAT  O ERR; 

CALL  INCSDA; 
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EKD: 

CALL  IMCSDA; 

BERBA.ERRA  » DAI3AREA; 
CALL  INCSDA: 

DO  WHILE  DAT  <>  ERR; 
CALL  INCSDA; 

END: 

CALI  INCSDA; 

PROHPTSAREA  = DAISAREA; 
END  SETSPTH; 

NEXTSDE;  PROCEDORE: 

CALI  aOVESCODESOLD; 

CALL  INCSDA: 

CALL  SETSPTR; 

END  NEXTSDE; 

DPDATESEAT:  PROCEDORE; 

DECLARE  T ADDRESS,  (I, A) 
INSSINC:  PROCEDURE; 

CODE  = NBUF(I) 

CALL  INCSCA; 

END  INSSINC; 


BYTE; 
1=  I ♦ 1; 


(I  <=  OBUP)  ; 


CODESA  = BSCODESA  * DLSLEN; 

I = DLSLEN+1 ; 

DO  WHILE  (A:=I  <=  NPTR)  AND 
CALL  INSSINC; 

END: 

IP  A THEN  /♦  CODE  LINE  HAS  GROWN  ♦/ 

DO: 

DO  WHILE  I <=  NPTR+1; 

IF  CODS  = ERR  THEN  /♦  AT  ERROR  CMf'S  ♦/ 

CALL  ERROR  (0)  ; 

ELSE 

CALL  INSSINC; 

END: 

CODE  = EOC; 

END; 

ELSE 

DO: 

CODE  * EOC;  T * OLD$BOF+OBOF+1; 

DO  WHILE  (CODESA  :=COD£SA  -t-1)  <=  T; 

CODE  = 0; 

END; 

END: 

END  UPDATESDAT; 

:^iiiti*^i^**m*m****** *********************** *****m******** 

ERROR  NOODLE 

FONCTIONi  TO  CHECK  FOR  POSSIBLE  ERROR  CONDITIONS. 
ERROR  COHNANDS  ARE  DEFINED  IN  DOSCHD  PROCEDURE. 

******************************************************  */ 

RESENTER:  PROCEDURE: 

CALL  NOTE S70 SOLD; 

CALI  PRINTSOLD: 

NPTR  « NB  - NEWSBOF; 

CALI  PRINTSNEW; 

END  RESENTER; 


WARNING:  PROCEDORE  (I); 

DECLARE  I BYTE; 

WARN  > TRUE; 

DO  CASE  I: 

CALL  PRINT(.'NILL  DESTROY  OLD  INFOR.1ATION  S'): 
CALL  PRINT (. 'EXPECTING  ALPHABETIC  CHARACTER  S'); 
CALL  PRINT EXPECTING  NUNERIC  CHARACTER  S'); 
CALL  PRINTL 'CHANGE  GREATER  TRAN  SPECIFIED 
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PERCSNTAG2  $') : 

CALL  PRINT(. ’INPDT  NDMBBR  OUT  OF  SEQUENCE  $'); 
PRIOT NUMBER  OF  CHARACTERS  NOT 
THE  same  as  ORIGINAL  FIELD  $«)  ; 


CALL 


END; 

CALI  CRLF: 

END  HARNING; 

INCSME:  PROCEDURE; 

NB  = NB  ♦ 1; 

END  INCSNB; 

SPSPDSCOH:  PROCEDURE  BYTE; 
DECLARE  SPACE  LIT  ' 20H' , 
PERIOD  LIT  '2EH', 
COMMA  LIT  '2CH'  ; 
RETURN  (JtN  = SPACE)  OR 
END  SP$ POSCO M; 

ALPHA:  PROCEDURE  BYTE: 

DECLARE  LCA  LIT  '61H' 
RETURN 


(IN  = PERIOD)  OR  (TN  = COMMA)) 


LCZ  LIT  '7AH»; 


END 


URN  ( ( (TN  >=  ‘A')  AND  (TN  <=  *Z')) 
AND  ?TN  <=  LCZ))  OR  SPSPDiCOM) ; 
ALPHA ; 

CHRSALPHA:  PROCEDURE: 

DO  WHILE  (TNOSLASH)  OH  (TNOLBRACE) 
IP  NOT  (ALPHA)  THEN 
DO; 

CALL  »ARNING(1)  ; 

RETURN; 

END; 

CALL  INCSNB; 

END; 

END  CHKSALPRA; 


OS  ( (TN  >=  LCA) 


OR  (TNORBP.ACE) 


<=  9)  OR  (TN  = 2DH  /*  MINDS  */) 


NUMERIC:  PROCEDURE  BYTE; 

RETURN  (](TN  - '0') 

OR  SPiPDSCOM)  ; 

END  NUMERIC; 

CHKSNOMEHIC:  PROCEDURE; 

DO  NHILE  (TNOSLASH)  OR  (TNOLBRACE)  OR  (TNORBRACE) 
IP  N0T(HUMERICJ  THEN 
DO:  CALL  HARNING(2);  RETURN;  END; 

CALL  INCSNB; 

END; 

END  CHKSNUMERIC; 

NEXTSSF:  PROCEDURE; 

DO  WHILE  (CODEOSLASH)  OR  (CODEOL3RACE) 

OR  (CODBORBRACE)  ; 

CALL  INCSCA;  . 

END: 

CALL  INCSCA: 

DO  WHILE  XDATOLBRACE)  OR  (DATOSLASH) 

OR  (DATOR BRACE)  ; 

CALL  INCSDA; 

END: 

CALL  INCSDA; 

CALL  INCSNB; 

CALL  INCSBR; 

END  NEXTSSF; 


CHKSPEBCENT: 

DECLARE 


PROCEDURE: 

(X.  I,  Z,  M,  PCT)  BYTE; 
CALL  INCSeR; 

CALL  INCSBR: 

M « DI6ST0SNUH(ECMD)  ; 

X > OIGSTOSNaM(rN)  ; 

Y « DIGSTOSNUM(DAT) ; 
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IF  X>Y  THEN  Z=X-Y; 

ELSE  Z=X-X; 

I?  (Z/Y)  > M THEN 

CALL  WARNING (3); 

END  CKKSPESCENT; 

CHKISEQUENCE:  PROCSDORE; 

DECLARE  (X.Y)  BYTE; 

X * DIG$TOiMDM(TN) ; 

Y * DIGJTOSKUNiDAT) ; 

IF  (X-Y)  <>  1 THEN 
CALL  HAHNING]4)  : 

END  CRKSSEQUENCE; 

CHKXLENGTH;  PROCEDURE; 

DECLARE  (X.  Y)  BYTE  INITIAL  (1) ; 

DO  WHILE  (DATOLBRACE)  OR  (DATOSLASH) 

OR  (DATORERACE)  ; 

CALL  INCSDA; 

X * X ♦ 1; 

END; 

DO  WHILE  (TNOSLA3H)  OR  (TNOLBRACE)  OR  (TNORBRACE)  ; 
CALL  INCSNB; 

Y = Y ♦ 1; 

END: 

IF  X <>  Y THEN 

CALL  WARNING (5) ; 

END  CHKSLENGTH; 

DOtCBD:  EHOCBDORE: 

IF  ECHD  = '0‘  THEN  RETURN;  ELSE 
IF  ECHD  = 'A*  THEN 
DO; 

CALL  CHR3ALPHA; 

DO  WHILE  fECMD  <>  SLASH)  OR  (ECHD  <>  L3RACE) 

OR  (ECHD  <>  RBRACE)  ; 

CALL  INCSER; 

END;  END;  ELSE 
IF  ECHD  = *N'  THEN 
DO; 

CALL  CHKSNUHBRIC: 

DO  WHILE  (ECHD  <>  SLASH)  OR  (ECHO  <>  LBRACE) 

OR  (BCMD  <>  RBRACE) ; 

CALL  INCSER; 

END;  END;  ELSE 
IF  ECHO  = 'P*  THEN 
DO: 

CALL  CHKiPSRCBNT: 

DO  WHILE  (ECHD  <>  SLASH)  OR  (ECHD  <>  LBRACE) 

OH  (ECHO  <>  RBRACE)  ; 

CALL  INCSER; 

END;  END;  ELSE 
IF  ECHD  » *S*  THEN 
DO: 

CALL  CHKSSEQUENCE; 

DO  WHILE  (ECHD  <>  SLASH)  OR  (ECHD  <>  LBRACE) 

OS  (ECHD  <>  RBRACE) ; 

CALL  INCSER; 

END;  END;  ELSE 
IP  ECHO  * *L*  THEN 
DO: 

CALL  CHKSLENGTH; 

DO  WHILE  (ECHD  <>  SLASH)  OR  (ECHO  <>  LBRACE) 

OR  (ECHD  <>  RBRACE) ; 

CALL  INCSER; 

END:  END;  ELSE 
CALL  ERROR  (2): 

BHD  DOSCHD; 

CHKiEBR:  PROCEDURE; 

WARN  « FALSE: 

DO  WHILE  ECHO  <>  ERR; 
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IP  (ECHO  = SLASH)  OR  (SC MD= LBRACE)  OR  (ECMD=RBRACE) 
THEN 

CALL  NSXTSSF; 

CALL  DOSCMD: 

IF  MARN  THEN  RETURN; 

CALL  INCSER; 

END: 

END  CHKSERB; 


ASKiQOESTION:  PROCEDURE 


DO  HHILE  (DAT  <>  SLASH)  OR  (DAT  <>  LBRACE)  OR 
(DAT  <>  RBRACE)  : 

CALL  PRINTCHAR  (DAT)  ; 

CALL  INCSDA; 

END; 

END  ASKSQUESTION; 

CHKSANSHER:  PROCEDURE; 

HARN  = FALSE; 

DO  HHILE  (ECHO  <>  SLASH)  OR  (ECHD  <>  LBRACE)  OR 
(BCMD  <>  RBRACE)  ; 

CALL  DOSCMD; 

IF  HARN  THEN  RETURN; 

CALL  INCSER; 

END; 

END  CHKSANSHER; 

ENDSIP;  PROCEDURE; 

OB  = CLDSBUP  + DLiLEN  + 1; 

IF  (NB:=  NEH$BUF+DL$LEN+1)  > NEWSBUF  + HPTR  THEN 
DO ; 

CALL  HARNING  (0)  ; 

RETURN; 

END; 

NBU?  (NPTR+1)  = V ; 

CALL  CHKSEfiR; 

END  ENDSIP; 

LED  IT:  PROCEDURE; 

DECLARE 

I BYTE, 

LTR  BYTE, 

FOUND  BYTE  INITIAL  (FALSE) , 

H BYTE; 

DO  HHILE  NPTR  < SIZEJNBUF; 

IF  (CHAR:*RBADC)  = AMPERSAND  THEN 
/*  BASIC  LINE  EDITOR  COMMAND  */ 

DO: 

CALL  PRINTCHAR  (EDiBDP (0) :=AMPERSAND)  ; 

1=1: 

DO  HHILE  (CHAH:=READC)  <>  CR; 

CALL  PRINrCHAfi  (BD$flUF(I)  : = CHAR) ; 

1 = 1+  1 ; 

END; 

IP  (ED$BUP(1)  = 'CM  AND  (EDSBUF(2)  = 'H')  THEN 
/*  CHANGE  COMMAND  ♦/ 

DO; 

1=3; 

DO  HHILE  ED$BUF(I)  = BLANK; 

1=1*1; 

END; 

IF  BDfBOP  (I:=I*1)_  <>  SLASH  THEN 
/♦  VIRGULB  EXPECTED  ♦/ 

CALL  ERROR  (8); 

LTR  = (l:»l*l); 

CALL  COPY$ON(ED$BUF  (LTR) ) ; 

DO  HHILE  FOUND  = FALSE: 

DO  HHILE  (EDSBUF(I)  <>  SLASH)  AND 
7eD*BUF(I)  = OBDF(OPTR)); 

I » I ♦ 1 ; 

IF  (OPTR:=OPTR*1)  > OBUF  THEN 
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END; 

IF  ( 

/♦  LOOK  FO 


CALL  ERROR  (9)  ; 


IF  .(EDSBUF^Ij^ 
DO; 


<>  OBUF(OPTR)  ) THEN 
EXT  OCCURRENCE  */ 


ELSE 

END; 

CALL  ENTER 


I = LTR: 

CALL  COPySON (ED$3UF(I) ) ; 
END; 

FOUND  = TRUE; 


DO  WHILE  EfiS'BUFfl+l)  <>  SLASH; 

NBUF  (NPTR:=NPTR+ 1)  = ED$BU?  (I:  =1  + 1)  ; 


END 


END  , 

CALL  ENTER: 

CALL  PStlOVESON; 


IF 

/* 


END; 


•U') 
•X' ) 


THEN 


THEN 


IF(EDSBUf(1)  = 'D*)  AND  (ED$BUF(2)  = 'EM  THEN 
/♦  DELETE  COMMAND  */ 

CALL  DELETE  (FALSE)  ; 

/*  DELETE  OLD  BUFFER.  DO  NOT  ECHO  PERCENT  SIGN  */ 
IF(ED$BUF(1)  = 'F')  AND  (ED$BUF(2)  = 'I')  THEN 
/*  FILE  COMMAND  ♦/ 

CALL  MOVE$rO$OLD: 

IF  (ED$BUF(1)  = 'Q')  AND  (EDSBUF  (2)  = 

/♦  QUIT  COMMAND  */ 

GO  TO  ENDEDIT2; 

IF  (ED$BUF(1)  = 'M')  AND  (EDSBUF  (2)  = 

/♦  NEXT  COMMAND  */ 

DO; 

M = DIGSTOSNUM  (EDSBOFSPTR  + 3)  ; 

DO  1 = 1 TO  M; 

CALL  HEADSMOHE; 

END: 

CALL  MOVESCODESOLD; 

CALL  PRINTSOLD; 

OPTR,  NPTR  = 0; 

END: 

IF  (EDSBUF(I)  = *U')  AND  (ED$flUF(2)  = 

/♦  UP  COMMAND  ♦/ 

DO; 

M = DIGSTOSNUM  (ED SBUFSPTR+ 3)  ; 

DO  1=1  TO  M: 

DATSAR2A  = DATSAREA  - 128; 

END  * 

calL  MOVESCODESOLD; 

CALL  PRINTSOLD; 

OPTR,  NPTR  = 0; 

END: 

IF  (EDSBOFM)  = 'P')  AND  (EDSBUF(2)  = 

/*  PROMPT-ON  COMMAND  */ 

PROMPT  = TRUE: 

IF  (EDSBUFJ1)  = 'H»)  AND 
/♦  NO-PROMPT  COMMAND  */ 

PROMPT  = FALSE; 

(EDSBUPM)  » 'I')  AND  /EDSBUF  = • 

INSERT  COMMAND  */ 

DO: 

call  ENTER; 

INSERTION  * TRUE; 

END; 


P')  THEN 


(EDSBUF  (2) 
(EDSBUF  (2) 


•O'  ) 

ipi ) 


THEN 


THEN 


N')  THEN 


IF  (CHAR)  <»  CTLZ  THEN  /*  CONTROL  CHAR  ♦/ 
DO  CASE  CHAR; 

/*  CAS  0 NOLL  ♦/ 

• 

/*  CASE  1 CONTROL  A ♦/ 

CALL  BACKUP; 

/*  CASE  2 CONTROL  B */ 


106 


J 


CALL  MOVE$TO$OLD; 

/*  CASE  3 CONTROL  C ♦/ 
CALL  COPYJONE; 

/*  CASE  4 CONTROL  D */ 
DO: 

CALL  PSHOTESON; 

GO  TO  ENDED1T1 ; 

END; 

/*  CASE  5 CONTROL  E */ 
CALL  ENTER; 

/♦  CASE  6 CONTROL  F ♦/ 
GO  TO  ENDEDIT2; 

/♦  CASE  7 CONTROL  G */ 
CALL  PRINTJBOTH; 

/♦  CASE  8 CONTROL  H ♦/ 
CALL  P$MOVE$ON; 

/♦  CASE  9 CONTROL  I */ 
CALL  PRINT$TA3; 

/♦  CASE  10  CONTROL  J */ 
GO  TO  ENDEDIT1; 

/♦  CASE  11  CONTROL  K */ 

• 

t 

/♦  CASS  12  CONTOL  L ♦/ 
CALL  CO?Y$RMSO$N; 

/♦  CASS  13  CONTROL  M ♦/ 
GO  TO  CARRIAGEJRETURN; 

/♦  CASE  14  CONTROL  N ♦/ 
CALL  BS$0$N; 

/♦  CASE  15  CONTROL  0 */ 

CALL  COPYSON (READC) ; 

/♦  CASE  16  CONTROL  P ♦/ 
CALL  DELETE  (TRUE)  ; 

/♦  CASE  17  CONTROL  Q */ 
CALL  DEL$N; 

/*  CASE  18  CONTROL  R ♦/ 
CALL  DISPLAY$RM$0$N; 

/♦  CASE  19  CONTROL  S */ 
CALL  DELjO; 

/♦  CASE  20  CONTROL  T */ 

t 

/♦  CASE  21  CONTROL  U */ 
CALL  COPYSON  (TAB)  ; 

/♦  CASE  22  CONTROL  V ♦/ 
CALL  ESCAPE; 

/*  CASE  23  CONTROL  W ♦/ 
CALL  BEGINSWRD; 

/*  CASE  24  CONTROL  X */ 
CALL  DELETE (FALSE)  ; 

/•CASE  25  CONTROL  Y */ 
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DO; 

CALL  PSrtOVESON; 

CALL  MOVE$TO$OLD; 

END; 

/♦  CASE  26  CONTROL  Z ♦/ 
CALL  COPYION (READC) ; 


END; 

ELSE  /♦  CHECK  SPECIAL  CASES  ♦/ 

CARRIAGiSRETUBN: 

IF  (CHAR  = CR)  AND  INSERTION  THEN 
DO: 

CALL  PRINT(. 'EXPECTING  A FILE  OR  QUIT  COMMAND  $•); 
CALL  ENTER; 

INSERTION  = FALSE; 

END; 

IF  CHAR  = ROBOUT  THEN 
CALL  BACKUP; 

ELSE 

DO; 

CALL  PRINTCHAR  (CHAR)  ; 

NBUF(NPTR;=  NPTR  + 1 )_=CHAR  : 

IF  NPTR  = 72  THEN  CALL  PRINTCHAR (BELL) ; 

IF  NOT  (INSERT)  THEN  OPTR  = OPTR  + 1; 

END; 

END;  /♦  DO  WHILE  */ 

/♦  ARRIVE  HERE  IP  BUFFER  PULL  ♦/ 

CALL  PRINTCHAR (BELL)  ; 

ENDEDIT1; 

ENDEDIT2:  CALL  CRLP; 

END  LEDIT; 

nt:^m**********************************m** ************** 


OUTPUT  MODULE 


FUNCTION:  TO  UPDATE  THE  DAT  FILE  AND  THE 
INFORMATION  JUST  EDITED  TO  THE  MESSAGE  FILE. 

********************* *********************************  */ 


INCSMSG:  PROCEDURE; 

IF  (HSG$AREA:=  HSGSAREA  ♦ 
RETURN: 

IF  DISKHRITS  (.MSGSPCB)  <> 

CALL  ERROR  (4); 

MSG$ARFA  = 80H; 

END  INC$MSG; 

MOVEJMSG:  PROCEDURE; 

IF  DAT  * ' I • THEN 
DO: 

CALL  INC$DA: 

DO  WHILE  DAT  <>  • ! • ; 

CALL  INCSDA; 

END: 

CALL  INCSDA; 

END; 

DO  WHILE  DAT  O EOC: 

IF  (DAT  * LBRACE)  OR 
CALL  INCSDA; 

ELSE 

IP  DAT  * PERCENT  THEN 
CALL  INCSDA; 

ELSE 

MSG  « DAT; 

CALL  INCSMSG; 

CALL  INCSDA; 


1)  < 100H  THEN 
0 THEN 


(DAT  = RBRACS)  THEN 
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END; 

MSG  = CR: 

CALT.  INCSHSG; 

MSG  = LP; 

CALL  INCSMSG; 

END  HOVBSHSG; 

WRITESMSG:  RROCEDORE; 

MSG  = CXLZ: 

IF  DISKNHITE  (.NSGSPCB)  <>  0 THEN 
CALL  ERROR (4)  ; 

END  HRITESMSG; 

CLOSESFILES:  PROCEDORE; 

IF  CLOSE ( .MSGSFCB)  = 255  THEN 
CALL  ERR0R(75  ; 

DFCB(12)  = SAVSJEXT; 

DFCB(32j  = SAVESRN; 

IF  CLOSE (DATSFCB)  = 255  THEN 
CALL  ERROR  (6)  ; 

END  CLOSESFILES; 

BLANKSBDF:  PROCEDORE: 

DECLARE  A ADDRESS,  (B  BASED  A, I)  BYTE; 
A = .BOPFER; 

DO  I = 1 TO  180; 

B = 0;  A = A ♦ 1; 

END; 

END  BLANK $BUF; 

BASEANEXTSDE:  PROCEDORE; 

DECLARE  I BYTE; 

DO  I = 1 TO  WMPrR12) : 

BSCODEtA  = BicODESA  + 128; 

END; 

NORKSMAP  = HORKSMAP  ♦ 3; 

END  EASBSNEXTSDE; 

OPDATESDATSPILE;  PROCEDORE; 

HOHKSMAP  = .MEMORY; 

BSCODESA  = BASESDATSAREA; 

DO  HHILE  BSCODE5A  < TSDATSAREA; 

CALL  MOVESMSG: 

DFCB(12)  = HMPTR; 

DFCB  (32j  = HMPTrVU  : 

CALL  SBTDMA (BSCODESA) ; 

IF  DISKHRITE  (DATSFCB)  O 0 THEN 
CALL  ERROR(4)  ; 

CALL  BASESNEXTJDE: 

END; 


CAlI  SET$DNA(8QH)  : 
END  OPDATESDATSFItE; 


EDIT:  PROCEDORE; 

CONTINOE: 

DO  HHILB  (DATSARBA  < TSDATSAREA); 
CALL  NEXTSDE; 

IF  PROMPT  THEN 

DO  HHILE  DAT  <>  EOP: 

CALL  ASRSOOESTION; 

HARM  « TROE: 

DO  HHILB  WARN; 

CALL  LEDIT; 

NBOP  (NPTR:»  NPTR  + 1)  * 
CALL  CHKSANSKER; 

END: 

CALL  NBXTSSF; 

END; 

ELSE 

DO: 

CALL  LEDIT; 


V 
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CALL  END  SIP; 

END: 

IF  HAPN  then  call  BESENTER; 

ELSE 

DO: 

CALL  UPDATESDAT; 

CALL  3LANKSBUF: 

CALL  BASBSNEXTSDE; 
DAISAREA,CODESA  = BSCOOESA; 
END; 

END;  /♦  DO  WHILE  ♦/ 

CALL  OPDATESDATSPILB; 

IF  MORE  THEN 
DO: 

CALL  READSMORE; 

GO  TO  CONTINUE; 

END: 

CALL  URITESHSG: 

CALI  CLOSESFILSS; 

GO  TO  BOOT; 

END  EDIT; 


/rn******  START  MAIN  PROGRAM  HERE  ♦♦♦♦*♦  ♦/ 

OLDiBUF  = (NEWSBOF  :=  . BUFFER) +90 ; 

OBOF  = 0: 

CALL  INIT: 

CALL  SELSRE: 

CALL  REiSELECT; 

CALL  SETSMEM: 

CALL  READSDAT; 

CALL  LIFTHEAD: 

TSDATSAREA  = DATSAREA: 

BSCODESA,COOESA.DATSA3EA  = BASEIDATSAREA ; 

HORKIMAP  = .MEMORY; 

CALL  CRLF* 

CALL  PRINi’i.'DO  YOU  WISH  TO  BE  PROMPTED?$» ) ; 

CALL  PRINTCHAR  (CHAR:  = READC)  ; 

CAL L CRLF • 

IF  CHAR  =*'Y'  THEN  PROMPT  = TRUE; 

CALL  EDIT; 

EOF 


/«  ***************** 
* * 

* CREATE  PROGRAM  ♦ 

* * 

*****************  *y 


/*  ****************** ************************************ 

PROGRAM  DESIGNED  TO  CREATE  DAT  EXECUTABLE  PILES  USED 
IN  CONJUNCTION  WITH  REPORT  ORIGINATION  SYSTEM  (ROS) . 

ROS  IS  DESIGNED  TO  GENERATE  FORMATTED  REPORTS. 

******************************* ***********************  */ 
100H; 


/*  ****************************************************** 

INITIALIZE  DECLARATIONS 

********************* *********************************  */ 


DECLARE 

LIT 

LITERALLY  'LITERALLY' 

BOOT 

LIT 

'oo6sh'. 

ENTRY 

LIT 

TRUE 

LIT 

' 1»  , 

FALSE 

LIT 

•O' , 

• WHILE  TRUE' , 

FOREVER 

LIT 

CR 

LIT 

•ODH', 

LF 

LIT 

'OAH  ' , 

OCNT 

BYTE, 

CTI 

LIT 

•O', 

CTS 

LIT 

•1'; 

/*  ********  ********************************************** 

INPUT  AND  EDITING  DECLARATIONS 


****************************************************** 

DECLARE 

BS  LIT  »08H»,  /♦  BACKSPACE  */ 


BS  LIT  »08H 

PERCENT  LIT  ‘25H 

BELL  LIT  *07H 

TAB  LIT  '09H 

BOP  LIT  '5BH 

ENDSPILE  LIT  '5CH 

EOC  LIT  *7CH 

ERR  LIT  *7BH 

CTLZ  LIT  MAH 

BLANK  LIT  '20R 

AMPERSAND  LIT  *26H 

SLASH  LIT  *2PH 

LBRACE  LIT  '7BH 

RBRACE  LIT  *7DH 

ROBOOT  LIT  »7FH 

OATSFCB  ADDR 

OFCE  BASED  DAT$PCB 
NUHSREC 


/*  UP-ARROW;  END  OF  PROMPT 
/♦BACK  SLANT  ♦/ 

/♦BAR:  END  OP  CODE  ♦/ 

/♦  TILDE;  END  OF  ERROR  ♦/ 


»08H»,  /♦  BAC 

•25H', 

*07H  • , 

•09H'  , 

•5BH',  /♦  UP-AR 
•5CH',  /♦BACK  S 
•7CH',  /♦BAR:  E 
*7BH*  , /♦  TILDE 

M AH'  , 

•20H 

•26H', 

•2FH', 

'7BH*  , 

•7DH' , 

•7FH*, 

ADDRESS  INITIAL 
$FCB  BYTE, 


(5CH)  , 


THEM  ADDRESS, 

RECCROSMAP 

RHPTR  BASED  RECORDS  NAP 
EXT  BYTE  INITIAL 

SATESEX  BYTE  INITIAL 
SATESRN  BYTE  INITIAL( 
STORE 

SP  BASED  STORE  BYT 
BSTORE  ADD 

SPTR  ADD 

BUFFER  (180)  BYT 

SIZESNBUF  LIT  *90 

NEWSBUF  ADD 


(OU- 


ADDRESS, 

BYTE, 


il50BESS, 

BYTE, 

ADDRESS, 

ADDRESS, 

BYTE, 

•90' , 
ADDRESS, 
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NBOF  BASSO  NEHSBOF  BYTE, 

NPTR  BYTE, 

CLDSBUF  ADDRESS, 

OBDF  BASED  OLDSBOF  BYTE, 

OPTR  BYTE, 

INSERT  BYTE  INITIAL  (FALSE) 

CHAR  BYTE, 

MOD$128$MASK  LIT  ’0FF80H', 

IN  BULIPLES  OF  128  BYTE  BLOCKS  ♦/ 

BDOSA  ADDRESS  INITIAL  (0006H)  , 

SBDOS  BASED  BDOSA  ADDRESS, 

(LABELIMOVED,  RECSBAPSWRITTEN)  BYTE  INITIAL  (FALSE) , 
EDSBOFSPTR  ADDRESS,  ' 

(EDJBOF  BASED  ED$30F$PTR)  (100)  BYTE, 

REC$MAP$SXT  BYTE  INITIAL  (0), 

RECIMAPSREC  BYTE  INITIAL  (0)  ; 


/*  GIVES  MEMORY  SIZE 


CRTIN:  FROCBDXORB  BYTE: 

DO  WHILE  INPUT  (C  rS)  ; 

END; 

RETURN  NOT  INPUT (CTI)  AND  07FH; 

END  CRTIN; 

READC;  PROCEDURE  BYTE; 

/*  GET  A CHARACTER  FROM  THE  CONSOLE  AND  TRANSLATE  TO 
UPPER  CASE  •/ 

nPPT^RP  C*  RYTP* 

IF  iC;=CRTINf  :>=  IIOiOOOlB  /*  LONER  CASE  A ♦/ 

AND  C <=  01111010B  /♦  LONER  CASE  Z ♦/  THEN 

C = C AND  101$1111B;  /♦  BECOMES  O^PER  CASE  */ 

RETURN  C; 

END  READC; 

MON1;  PROCEDURE  (FUNC,  INFO); 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MON1; 


MON  2: 


; PROCEDURE  (FUNC, INFO)  BYTE: 
DECLARE  FUNC  BYTE,  INFO  ADDRESS; 


GO  TO  ENTRY; 

END  MON2; 

MON  3;  PROCEDURE  (FUNC,  INFO)  ADDRESS; 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MON3; 

PRINTCHAR:  PROCEDURE  (B); 

DECLARE  3 BYTE; 

CALL  MON1  (2.B)  ; 

END  PRINTCHAR; 

PRINTCHARI:  PROCEDURE (C) ; 

DECLARE  C BYTE: 

IF  (C  AND  IIOSOOOOB)  = 0 /♦  CONTROL  CHAP  •/  THEN 
DO; 


4aLL  PRINTCHAR  (EOP); 

CALL  PRINTCHAR  (C  OH  40H)  ; 
END: 

ELSE  CALL  PRI NTCHAR  (C)  ; 

END  PRINTCHARI; 

CRLF:  PROCEDURE: 

CALL  PRINTCHAR  (C^  ; 

CALL  PRINTCHAR  (Lll  ; 

END  CRLF; 

PRINT:  PROCEDURE  (A)  ; 
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DECLARE  A ADDRESS; 

CALL  nOHI  (9, A) ; 

CALL  CRLP; 

END  PRINT; 

MOVE;  PROCEDURE  (SOURCE  ,DEST,K); 

DECLARE  (SOURCE, DEST)  ADDRESS, 

(S  BASED  SOURCE,  D BASED  DEST,  N ) BYTE; 
DO  WHILE  (N:=N-1)  <>  255; 

D=S;  SOURCB=SODRCE+1 ; DEST=DEST+1; 

END; 

END  HOVE; 

PILL;  PRdCEDURE(START, DEST, CHAR) ; 

DECLARE  (START, DEST)  ADDRESS, 

(S  BASED  START,  CHAR)  BYTE; 

DO  WHILE  START  < 


h.  m wnoj 

DEST; 
1; 


•LACK  ERROR  COMMAND  SPACE 
' DISK  WRITS  ERROR  S ' ) ,* 
•PILE  NOT  PRESENT  S')  ; 


S = CHAR; 

START  » START 
END; 

END  PILL; 

ERROR;  EROCBDURE(I)  ; 

DECLARE  I BYTE; 

DO  CASE  I; 

CALL  PRINT(.'LACK  ERROR  COMMAND  SPACE  $ ') 

CALL  PRINT  

CALL  PRINT 
END; 

CALI  CRLP: 

GO  TO  BOOT; 

END  EfifiOfi; 

DIGJTOSHUH;  PROCEDURE  (STR)  BYTE; 

/*  CONVERTS  A STRING  OP  ASCII  DIGITS  TO  A DECIMAL  NUMBER  */ 
DECLARE 

STR  ADDRESS, 

STR1  BASED  STR  BYTE, 

I BYTE  INITIAL  (0)  , 

H BYTE  INITIAL  (0)  ; 

DO  WHILE  STRIfl)  = BLANK; 

1=1+  T; 

END; 

IP  STR1 (I)  = CR  THEN 
RETURN  1; 

DO  WHILE  STR1(I4-1)  <>  (BLANK  OR  SLASH); 

H » (H*10)  ♦ (STRT  (D-48)  ; 

I * I ♦ 1; 

END: 

RETURN  H: 

END  DIGSTOSNUH; 

/*  :$m******  **************************************  ******** 

INPUT  AND  EDITING  MODULE 

******************************************************  */ 

PROMPT:  PROCEDURE  (I)  ; 

DECLARE  I BYTE; 

CALL  HON1  (9,. 'EXPECTING  S'); 

DO  CASE  I: 

CAU  P(lINT(.'CODE  INPORHATION  S'); 

CALL  PRINT  (.'ERROR  COMMANDS  S')  ; 

CALL  PRINT  (.'PROMPT  INPORHATION  S'); 

END; 

END  PROMPT; 

IMCSRH:  PROCEDURE: 

BECOBDSHAP  * RECORDSMAP  * 1; 

END  INCSBN; 
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GOSHEXTIREC:  PROCEDORE: 

/♦  INCREilENTS  STORAGE  POINTER  TO  NEXT  EVEN 
RECORD  SECTOR  ♦/ 

DO  WHILE  SPTR  < STORE: 

SPTR  = SPTR  12d; 

NUM$REC=NOM$REC+1 ; 

IF  NUMJREC  = 128  THEN 


DO; 

EXT  = EXT  ♦ 1; 
NUHIRBC  = 0; 
END; 

END: 

STORE  = SPTR-1; 

END  GOSNEXTSREC; 


MOVESDL:  PROCEDURE: 

DECLARE  A ADDRESS,  I BYTE,  DELIMIT  BYTE; 

IP  (LABELSMOVED  = TRUE)  THEN 
RETURN; 

A s R^CORDSHAP  * 14: 

RMPTR,  DELIMIT  = OB  OP  (I)  ; 

CALL  INCSRM; 

1 = 1*  1 ; 

DO  WHILE  (RMPTR;=OBOF  (I) ) <>  DELIMIT; 

I = I ♦ 1; 

CALL  IMC$RH; 

END: 

RHPtP  * DBLXfflT* 

DO  WHILe"’(RECo6dJMA?:=  RSCORDSMAP  + 1)  < A; 
RMPTR  = 'O' ; 

END: 

RMPTR  = EXT; 

CALL  INCSRN: 

RMPTR  = NONSREC; 

CALL  INCSRM; 

IABELImOVED  = TRUE; 

END  MOVESDL; 


WRITE:  PROCEDURE: 

DECLARE  A ADDRESS: 

IP  HECiMAPSWRITTEN  * FALSE  THEN 
DO; 

A = .MEMORY  - 128: 

SAVESBX  = DPCBni); 
SAVESRN  = DPCBfiEf; 
DFCB(12)  - RECSMAPSEXT; 


DFCB(12)  - RECSMAPSEXT; 

DPCB(32l  * RECSMAPSREC: 

DO  WHILE  (A;»A*128)  < BSTORE; 
CALL  MOVE(A.  BOH,  128); 

IP  (DCNT:»m6N2  (21,DATSPCB) 
CALL  ERROR(O) ; 

END: 

CALL  MON1(12.0): 

0PCB(12)  > siVESEX; 

DPCB(32)  > SAVBSRM; 


12)  - RECSMAPSEXT; 

32l  * RECSMAPSREC: 

ILE  (A;»A*128)  < BSTORE; 
CALL  MOVE(A.  BOH,  128); 
IP  (DCNT:»m6N2  (21,DATSPC1 


) <>0  THEN 


END: 

A ■ BSTORE  - 128: 
DO  WHILE  (A:«A>12 
CALL  NOVEiA. 
IF  (DCMT:  «M(5h2 
CALL  ER 

BID: 

STObB  ■ BSTORE: 
CALL  MON1  (12,0)  ; 
BMD  WRITE; 


lVESEX; 

iVBSRM; 


B - 128: 

(A:«A>128)  < STORE; 
MOVEfA.  BOH,  128); 
»T:«M(5h2  (21,DATSPCB 


wn#  I f 

(21,DATSPCB))  <>  0 THEM 
HOH  (0)  ; 


IWCiSTORE:  PROCEDURE: 

/*  CHECKS  POP  MBHORT  OVERFLOW  INCREMENTS  STORAGE  PTR  */ 
IF  (STORB:>STORB«1)  > THEN  THEN 

IF*  (LABBLIHOVED  > FALSE)  THEN 
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CALL  MOVESDL; 

CALL  WHITE; 

, RECJMAPSWRirTEN  = TROE; 

^ END: 

END  INCSSTORE; 

BOVHSSTORE;  PROCEDURE: 

/♦  STORES  INFORBATION  FROM  INPUT  TO  FILE  MEMORY  AHEA  ♦/ 
DECLARE  I BYTE: 

DO  1=1  TO  OBUH 

CALL  INCSSTORE; 

SP  = OBUF(I)  ; 

END; 

END  MOVESSTORE; 

FILLSCODESZERO:  PROCEDURE; 

DECLARE  (A,T)  ADDRESS,  B BASED  A BYTE; 

A = STORE;  T = SPTR  + 128; 

DO  HHILE  (A:  = A+1)  < T; 

B = 0; 

END; 

END  FILLSCODESZERO; 

ZEROSBUF:  PROCEDURE; 

DECLARE  I BYTE; 

DO  I = 0 TO  89: 

NBUF(I)  , OBUF(l)  = 'O'  ; 

END: 

END  ZERCSBUF; 

ENDSlINE:  PROCEDURE; 

/*  CHARACTER  IS  A CARRIAGE  RETURN  ♦/ 

CALL  GOSNEXTSREC; 

CALL  MOVESDL: 

CALL  MOVESSTORE; 

CALL  INCSSTORE; 

CALL  ZEROSBUF; 

SP  = CR: 

CALI  CHLF: 

END  ENDSLINE; 

ENOSEL:  PROCEDUBE: 

/*  CHARACTER  IS  A BAR  (J)  INDICATES  END  0?  CODE  AREA  ♦/ 
CALI  GOSNEXTSREC; 

CALI  MOVESDL: 

CALL  MOVESSTORE; 

CALI  INCSSTORE; 

SP  ^ EOC* 

CALL  FIlLscODZSZERO; 

CALL  INCSSTORE; 

CALL  ZEROSBUF; 

CALL  CRLF: 

CALL  PROMPT  (1); 

END  ENDSDL; 

ENDSBEC:  PROCEDURE; 

/*  CALL  WHEN  A OP-ARBOH  IS  ENTERED  FROM  THE  KEYBOARD. 
INDICATES  END  OF  DECODED  INFORMATION  */ 

CALL  60SNEXTSBEC; 

CALL  MOVESSTORE; 

CALI  INCSSTORE; 

SP  ■ EOP* 

lABELSHO^EO,  RECSMA PSNRITTEN  = FALSE; 

CALL  FILLSCODESZERO; 

CALL  INCSSTORE; 

CALL  ZBBOSBOP; 

CALI  CRLF: 

CALL  PROMPT (0): 

END  ENDSREC; 

END  SERB:  PROCEDURE; 
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/♦  CALLED  WHEN  (TILDE)  ENTERED  AT 
INDICATES  END  OF  ERROR  CHECKS 
CALL  GOiNEXTSREC; 

CALL  MOVBSSTORE; 

CALL  INCSSTORE; 

SP  = ERR: 

CALL  FILL$C0DE$’»,ER0; 

CALL  INCSSTORE; 

CALL  ZEROSBUF; 

CALL  CRLF: 

CALL  PROMPT  (2); 

END  ENDSERR; 


KEYBOARD 

♦/ 


ENDSP:  PROCEDURE: 

/*  CALLED  WHEN  END  FILE  ( 

END  OF  FILE  */ 

DECLARE  (EX,NR)_  BYTE; 

CALL  MOVE$STORE; 

CALL  INC$ STORE; 

SP=£ND$FILE; 

CALL  WRITE; 

CALL  INCSRN; 

RHPTR  = EOC;  /*  MARK  END  OF 
RECORDSMAP  = RSCORDSMAP  14,  , - 

NEXT  RECORD  TO  BE  WRITTEN 
RMPTR  = DFCB  (12)  ; 

CALL  INC$RH; 


FILE  ( ) BLACKSLASH  ENTERED  INDICATES 


RECORDSMAP  */ 
/♦  SAVE  EXT 
♦/ 


AND  RN  OF 


RHPTR  = DFCB (32); 
EX  = DFCB  (12)  ; NR 
DFCB  (32)_,  DFCB  (12) 
CALL  MOVE(. MEMORY, 


^ V;  NR  = DFCB  (32)  ; 
dFCB  (12)  =0; 
a\j  1 1t  t » MEMO  RY  (80H<128)  ; 

IF  (DCNT  :=  MON2 (21 ,DAT$FCB))  <>  0 THEN 
CALL  ERROR  (1j^^^ 


DFCB  (12)  » EX; 


CB  (32)  NR: 


= 255  THEN  /*  CLOSE  FILE  ♦/ 


= NPTR  -1; 
PHINTCHAR  (BS)  ; 
PHINTCHAR(»  •); 
PHINTCHAR  (BS)  ; 


IF  MdN2(16,  DiTlFCB) 

CALL  ERROR  (2)  ; 

GO  TO  BOOT; 

END  END$F; 

BACKJOP:  PROCEDURE; 

IP  NPTR  > 0 THEN 
DO: 

NPTR 
CALL 
CALL 
CALL 
END; 

ELSE 

CALL  PRINTCHAR  (BELL)  ; 

END  BACKSUP; 

HOVESTOSOLD:  PROCEDURE: 

CALL  MOVE  (NEWSBOF*!  ,OLD$BUP+1  , (OBUF:=NPTR)  ) ; 

OPTH  * 0;  NPTR  » 0; 

CALL  CRLF: 

END  MOVB$TOSOLD; 

ECHOSON*  PROCEDURE* 

CALL'pRINTCHAR  (AbUF (NPTR;  = NPTR+1)  : = (OBOP (OPTR ; *OPTR+ 1 ) ) ) ; 
END  ECHOSON; 

COPYSONB:  PROCBOORE: 

IF  CPTR  < OBUF  THEN 
CALL  ECHOSON: 

ELSE  CALL  PRINT  CHAR  (BELL)  ; 

END  COPYSONB; 


PSHOVBSON:  PROCBOORE;  /*  PARTIAL 
DO  WHILE  OPTR  < OBUF; 

CALL  ECHOSON; 

END; 

END  PSHOVBSON; 


MOVE  OLD  TO  NEW  •/ 
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ENTER:  PROCEDORE; 

IF  INSERT  THEN 

CALL  PRIMTCHAH (*>•); 

ELS  E 

CALL  PHINTCHAR  (•  <•)  ; 

INSERT  = NOT (INSERT); 

END  ENTER; 

PRINTSOLD;  PROCEDURE; 

DECLARE  I BYTE: 

DO  1=  1 TO  OBOF; 

CALL  PHINTCHAHI (OBOF(I))  ; 

END: 

CALt  CRLF: 

END  PRINTiOLD; 

PHINTfNEH:  PROCEDURE; 

DECLARE  I BYTE: 

DO  I = 1 TO  NPTR: 

CALL  PRINTCHAHI  (NBUF(I))  ; 

END; 

END  PRINTSNEN; 

PHINISBCTH:  PROCEDURE; 

CALL  PRINTSOLD; 

CAI.I  PHINTSNEH; 

END  PRINTSBOTH; 

COPYARNSOiN:  PROCEDURE: 

/*  COPIES  REMAINING  CHARACTERS  FOR  OLD  TO  NEH  BUFFERS  */ 

DO  WHILE  OPTR  <=  OBUF; 

NBUF(KPTR:=NPrR+1)  = OBUF  (OPTR:=OPTR  + 1)  ; 

END: 

CALL  PRINTCHARC +•)  ; /♦  INDICATES  WHEN  DONE  ♦/ 

END  COPY$RH$0$N; 


BSSOSN:  PROCEDURE: 

/♦  EACKSPACE  OLD  PT R AND  NEW  PTR  1 CHAR  ♦/ 

IP  (OPTR  >0)  AND  (NPTR  > 0)  THEN 
DO ; 

OPTR  = OPTR  - 1 ; 

NPTR  = NPTR  - 1 : 

OBUF  * OBOF  - 1; 

END; 

ELSE 

CALL  PHINTCHAR  (BELL)  ; 

END  BSSOSN; 

COPYION:  PROCEDURE  (C.  NEXT)  ; 

DECLARE  (C, I, NEXT)  BYTE; 

I»OPTH: 

DO  WHILE  OBOF(I;»I*1)  <>  C: 

IF  I > OBUF  THEN  /♦  NO  HATCH  */ 

£aLL  PRIMTCHAR  (BELL)  ; 

RETURN; 

END: 

END:  /*  DO  WHILE  •/ 

IF  lOTjNEXT)  THEN  1«I-1; 

DO  WHILE  OPTR  < I; 

CALL  ECHOSON; 

END; 

END  COPTS ON; 

DELETE:  PROCEDURE  (ECHO)  ; 

/*  ECHO  TRUE  INDICATES  TO  START  FROH  THE  CURRENT 
POSITION  OF  OU  BUFFER  AND  ECHO  A % (PERCENT)  FOR  THE 
DELETED  CHARACTER.  ECHO  FALSE  INDICATES  TO  START  AT 
THE  BEGINNING  OF  THE  OLD  BUFFER  AND  DON'T  ECHO  FOR 


1 
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THE  DELETED  CHARACTERS.  */ 

DECLARE  (I,  J, PI, CHARI, ECHO)  BYTE; 

IF  ECHO  THEN  PI  = 0 ; 

ELSE  P1  * OPTR; 

s RF'A  * 

DO  WHILE  (OBU^{P1:  =PU1)  <>  CHARI)  ; 

IF  Pi  > OBOF  THEN  /♦  NO  MATCH  */ 

DO; 

CALL  PRIMTCHAR (BELL)  ; 

RETaPN; 

END; 

END;  /♦  DO  WHILE  ♦/ 

IF  ECHO  THEN 

DO  I = OPTR+1  TO  PI; 

CALL  PRIMTCHAR  (PERCENT)  ; 

END; 

/♦  NOW  CONDENSE  THE  BUFFER  */ 

J=OPTR; 

I=P1; 

DO  WHILE  I <=  OBOF; 

OBOP(J;=J+1)  = OBOF  (I;=I  + 1)  ; 

END ; 

OBOF  = OBOF  - (P1-OPTR+1)  ; 

END  DELETE; 

DEL$N:  PROCEDORE; 

NPTR=0;  OPTH=0; 

CALL  PRINTCHAH(ENDSFILE)  ; 

CALI  CRLF; 

END  DELSN; 

DISPLAY2RH$CSN:  PROCEDORE; 

DECLARE  I BYTE; 

1*0; 

CALL  CRLF; 

DO  WHILE  (I;  = I+1)_  <=  OBOF; 

IF  I <*  OPTR  THEN  /♦  EVEN  LINE  */ 

CALL  PRIMTCHAR (•  •); 

ELSE 

CALL  PRIMTCHAR  (OBOF  (I)  ) ; 

END: 

CALL  CRLF: 

CALL  PRINTSNEW: 

END  DISPLAYSRMlOiN; 

DSLSO:  PROCEDORE: 

IF  OPTR  > 0 THEN 
DO; 

DECLARE  I BYTE; 

I * OPTR  - 1; 

DO  WHILE  (I:*I-H)  < OBOF; 

OBOF(I)  = ofeoF  (1+1)  ; 

END: 

CALL  PRIMTCHAR(PERCENT)  ; 

OBOF  » OBOF  - T; 

END: 

ELSE  CALL  PRIMTCHAR  (BELL)  ; 

END  DELSO; 

ESCAPE:  PROCEDORE: 

/*  TORMS  OFF  SPECIAL  MEANING  OF  CHARACTER  TO 
AND  ENTERS  CHARACTER  IN  NEW  BUFFER  V 

CALL  PRIHTCHARI  (CHAR:*READC)  ; 

NBOP  (NPTR:«NPTR*1)  » CHAR; 

END  ESCAPE; 

CONTIFILL:  PROCBDORE; 

CALL  MOVESSTORB; 

CALL  CRLF; 


FOLLOW 
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END  CONTSFILL; 

PHINTJTAB;  PROCEDORE: 

IF  (NPTR  ♦ 5)  > SIZE$NBOF  THEN 
CALL  PRINTCHA3  (BELL)  ; 

ELSE 

NBOF  (NPTR:=NPTR+ 1)  = TAB; 
CALL  PRINTCHAH  (TAB)  ; 

END  PRINTSTAB; 

BE6INSHRD:  PROCEDURE; 

DO  WHILE  NEH$BOF(NPTR-1) 

CALL  BACKSDP; 

END; 

END  BEGINSHBD; 

LED IT;  PROCEDURE; 

DECLARE 
I BYTE, 

LT  H E YT  E 

FOUND  BlfE  INITIAL  (FALSE), 

H BYTE; 


<> 


/♦  READS  CHARACTERS  PROM  THE  CONSOLE  AND  ALLOWS  EDITING 
USING  THE  PROCEDURES  OF  A LINE  EDITOR  */ 

OPTR  = 0;  NPTR  = 0; 

DO  WHILE  NPTR  < SIZESNBUP: 

IF  (CHAR;=R2ADq  = AMPERSAND  THEN 
/♦  BASIC  LINE  EDITOR  COMMAND  ♦/ 

DO: 

CALL  PRINTCHAR(ED$BUF  (0)  : = AMPERSAND)  ; 

DO  WhIlE  (CHAR:=READC)  O CR: 

CALL  PRINTCHAR(ED$BUF(I)  ; = CHAR)  ; 

I = I 1; 

EH  D * 

IF  (ED$BUF(1)  = 'C')  AND  (SD$BUP(2)  = *H')  THEN 
/*  CHANGE  COMMAND  ♦/ 

DO; 

1 = 3; 

DO  WHILE  EDSBUF(I)  = BLANK; 

I = I ♦ 1 ; 

END; 

IF  ED$BUF(I;  = I 1)  <>  SLASH  THEN 

/*  7IR3ULE  EXPECTED  */ 

CALL  ERROR  (8)  ; 

LTR  = (I:  = I ♦ 1)  : 

CALL  COPyJON  (EDSBUP  (LTR)  , FALSE); 

DO  WHILE  FOUND  = FALSE: 

DO  WHILE  iED$BUF(l)  <>  SLASH)  AND 
(ED$BUP(I)  = OBUP(OPTR)); 

I = I ♦ 1 ; 

IF  (OPTR;=OPTP  ♦ 1)  > 03UF  THEN 
CALL  ERROR (9); 

END; 

IP  (ED$B0F(I)  <>  OBUF(OPTR)  ) THEN 
/*  LOOK  FOR  NEXT  OCCURRENCE  ♦/ 

DO; 

I » LTR: 

CALL  COPYSON  (ED{BUF(I)  , FALSE); 
END; 

ELSE 

POUND  = TRUE; 

END: 

CALL  ENTER] 


DO  WHILE  EDSBUP(I*1)  <>  SLASH: 

NB0P(NPTR;»NPTB*1)=EDf  BUF  (I;  = I + 


END; 


END, 

CALL  ENTER: 

CALL  P$MOVE$ON; 


1)  ; 
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IP  (ED$BUF(1)  = »D*)  AND  (ED$BUF(2)  = *E')  THEN 

/*  DELETE  COMMAND  */ 

CALL  DELETE  (FALSE)  : 

/♦  DELETE  OLD  BUFFER,  DO  NOT  ECHO  PERCENT  SIGN  ♦/ 
IF  (ED$BUF(1)  = 'F')  AND  (SD$BUF(2)  = 'I')  THEN 

/♦  FILE  COMMAND  */ 

CALL  MOVE$TO$OLD; 

IF  (EDSBOF(I)  = 'Q')  AND  (EDSB0F(2)  = 'U')  THEN 

/♦  QUIT  COMMAND 

GO  TO  ENDEDIT2; 

IF  (ED$BUF(1)  = 'N')  AND  (EDJ3UP(2)  = 'X')  THEN 
/*  NEXT  COMMAND  ♦/ 

CALL  PRINT(.'NEXT  COMMAND  IS  NOT  IN  CREATE  PROGRAM 
EDITOR  S' ) ; 

IP  (EDSBOFM)  = 'P')  AND  (EDSBUF(2)  = ' R •)  THEN 

/♦  PRINT  COMMAND  ♦/ 

CALL  PRINT(.  ' PRINT  COMMAND  IS  NOT  IN  CREATE  PROGRAM 
EDITOR  $• ) ; 

IF  (ED$BOF(1)  = 'O')  AND  (EDSBUP{2)  = *P')  THEN 
/♦  UP  COMMAMD  ♦/ 

CALL  PRINT(.'UP  COMMAND  IS  NOT  IN  CREATE  PROGRAM 
EDITOR  J* ) ; 

IF  (EDSBOF(I)  = 'P')  AND  (EDSBUF(2)  = 'O')  THEN 
/*  PROMPT  ON  COMMAND  */ 

CALL  PEINTf. 'PROMPT-ON  COMMAND  IS  NOT  IN  CREATE 
EDITOR  S' ) ; 

IF  (ED$BUi(1)  = 'N')  AMD  (SD$BUF(2)  = 'P')  THEN 
/*  NO  PROMPT  COMMAND  */ 

CALL  PRINT(. 'NO-PROMPT  COMMAND  IS  NOT  IN  CREATE 
EDITOR  S' ) ; 

IF  (EDSBOF(1)  = '!')  AND  (ED$BUF(2)  = 'N')  THEN 
/♦  INSERT  COMMAND  ♦/  : 

CALL  PRINT(. 'INSERT  COMMAND  IS  NOT  IN  CREATE 
EDITOR  S')  ; 

END: 

IF  CHAR  <=  CTLZ  THEN  /*  CONTROL  CHAR  ♦/ 

DO  CASE  CHAR; 

/♦  CAS  0 NOLL  */ 

t 

/*  CASE  1 CONTROL  A •/ 

CALL  BACKUP; 

/♦  CASE  2 CONTROL  3 ♦/ 

CALL  NOVESTOSOLD; 

/*  CASE  3 CONTROL  C ♦/ 

CALL  COPYSONE; 

CASE  4 CONTROL  D •/ 

CAiL  PSMOVSJON; 

GO  TO  ENDEDIT1; 

END; 

/♦  CASE  5 CONTROL  E ♦/ 

CALL  ENTER; 

/♦  CASE  6 CONTROL  F */ 

GO  TO  3NDEDIT2; 

/*  CASE  7 CONTROL  G */ 

CALL  PRINTSBOTH; 

/*  CASE  8 CONTROL  H ♦/ 

CALL  PSMOVESON; 
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/♦  CASE  9 CONTBOL  I */ 
CALL  PRIMTfTAB; 

/*  CASE  10  CONTROL  J */ 
GO  TO  END EDIT  1; 

. /*  CASE  1 1 CONTROL  K ♦/ 

t 

/♦  CASE  12  CONTOL  L */ 
CALL  COPYSRMSOSN; 

/•  CASE  13  CONTROL  M ♦/ 
DO: 

CALL  MOVESTOSOLD; 

CALL  ENDSLINE; 

END; 

/♦  CASE  14  CONTROL  N ♦/ 
CALL  BS30SN; 

/♦  CASE  15  CONTROL  0 */ 

CALL  CO?y$ON(READC, FALSE) ; 

/♦  CASE  16  CONTROL  P •/ 
CALL  DELETE  (TRUE)  ; 

/*  CASE  17  CONTROL  Q ♦/ 
CALL  DSLfN; 

/♦  CASE  18  CONTROL  R */ 
CALL  DISPLAYiRM$0$N; 

/*  CASE  19  CONTROL  S ♦/ 
CALL  DEL$0; 

/♦  CASE  20  CONTROL  T */ 
CALL  CONTSFILL; 

/*  CASE  21  CONTROL  U */ 
CALL  COPYSON  (TAB,  FALSE)  ; 

/*  CASE  22  CONTROL  V ♦/ 

CALL  ESCAPE; 

/♦  CASE  23  CONTROL  H ♦/ 

. CALL  BEGINIWRD; 

• /♦  CASE  24  CONTROL  X ♦/ 

CALL  DELETE (FALSE)  ; 

I /*CASE  25  CONTROL  Y */ 

t bo: 

CALL  PSaOVESON: 

CALL  M07E$T0$0LD; 

END; 

/♦  CASE  2 6 CONTROL  Z ♦/ 
CALL  COPY$ON(RBADC, TRUE); 


END: 

ELSE  /♦  CHECK  SPECIAL  CASES  */ 

IF  CHAR  =:  RUBOUI  THEN 
CALL  BACKUP; 

ELSE 

IP  CHAR  * EOC  THEN  /♦  INDICATES  END  OP  CODED  INFO  ♦/ 
DO: 

CALL  PRINrCHAR(CHAR)  : 

CALL  HOVESTOSOLD; 

CALL  ENDSDL; 


fi 
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END; 

ELSE 

IF  CH&R  = BBR  THEN 
DO; 

CALL  PHINICHAR (CHAR)  ; 

CALI  MOVESTOJOLD; 

CALL  ENDSERR; 

END; 

ELSE 

IF  CHAR  = EOP  THEN  /♦  END  OF  PROMPT  INFORMATION  */ 
DO: 

CALL  PRINTCHAR  (CHAR)  ; 

CALL  HOVESTOSOLD; 

CALL  ENDSREC; 

END; 

ELSE 

IF  CHAR  = ENDSFILB  THEN  /♦  END  OF  FILE  •/ 

DO; 

CALL  PRINPCHAR (CHAR)  ; 

CALL  MOVESTOSOLD; 

CALL  END$F; 

END; 

ELSE 

DO; 

CALL  PRINTCHAR  (CHAR)  ; 
NB0F(NPTR:=NPTR*1)_=CHAR; 

IF  NOT  (INSERT)  THEN  OPTR  = OPTR  + 1; 

IF  NPTR  = 72  THEN  CALL  PR INTCHAR (BELL)  ; 

END; 

END;  /*  DO  WHILE  .♦/ 

/♦  ARRIVE  HERE  IF  BOFFER  POLL  ♦/ 

CALL  PRINTCHAH(BELL) ; 

ENDEDIT1;  CALL  MOVESTOSOLD; 

ENDEDIT2; 

END  LEDIT; 

/*  START  MAIN  PROGRAM  HERE  ♦/ 


OLDSBOF  = (NEWSBOF  :=  .BUFFER) +90; 
OBUF  * 0: 

CALL  MOVE  (.'DAT*.  DATSFCB  + 9, 3) ; 


CALL  MOVE  (.'DAT*.  DATSFCB  + 9 
DFCB.DFCBil2)  ,DFCB  (32)  * 0: 
IF  M0N2(17,  DXTSFCB)  <>  255 


DATSFCB  + 9, 3)  ; 

i)^^^:>~255  THEM  /*FILE  EXISTS  V 


cIll  print(.»  file  already  exists  S'); 

GO  TO  BOOT; 

END; 

IF  M0N2(22,  DATSFCB)  * 255  THEN 
DO; 

CALL  PRINT(.'  OUT  OF  DIRECTORY  SPACE  S'); 

GO  TO  BOOT; 

END: 

IF  (DCNT: *MON2(15, DATSFCB) ) = 255  THEN  /•  CAN'T  OPEN  ♦/ 
CALL  ERRORC2f • 

CALL  MON1(12,0);  /♦  LIFT  READ  WRITE  HEAD  */ 

/♦  ARRIVE  HERE  WITH  NEW  FILE  CREATED  •/ 


(SBDOS  - 1)  AND  HODS128SHASX; 
IL  (.MEMORY, THEM. 0); 

CORDS  MAP  = .MEMORY; 


/♦  ARRIVE  HERE  WIT 
DFCE(32)  = 1:  /♦  RE 
TMEM  » (SBDOS  - 1) 
CALL  FILL  (.MEMORY,! 
SPTR. RECORDS  MAP  = . 
BSTOSe  » .MEMORY  + 
STORE  = BSTORE; 

SPTR  * STORE  - 128; 
NUMIREC  » 12: 

CALL  PROMPT (0); 

DO  FOREVER: 

CALL  LEDIT; 

END; 


/♦  RESERVE  FIRST  RECORD  FOR  RECORD  HAP 


12)  ; 
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